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Preface 


A few decades ago, the advent of high-speed electronic digital computers gave tremendous impetus to all 
numerical methods for solving engineering problems, and made it possible to solve with good accuracy 
many problems which previously could only be solved approximately. Finite difference methods, applied 
manually, gave way to finite element methods, which are still one of the most versatile and widely used, 
particularly in structural and solid mechanics. In thermofluids, methods of the finite volume type tend 


to be preferred. 


Slower to develop have been boundary element methods, based on boundary integral equations. Initial 
development was largely in the hands of mathematicians, as the underlying mathematics are relatively 
sophisticated. It was engineers, however, who turned boundary element methods into practically useful 


and powerful techniques. 


The purpose of this book is to serve as a deliberately simple introduction to boundary element methods 
applicable to a wide range of engineering problems. The mathematics are kept as simple as reasonably 
possible. Computer programs form an integral part of the boundary element approach and they are 
treated as such in the text. Several programs suitable for use on desktops or laptops are presented and 
described in detail and their uses are illustrated with the aid of a number of practical examples. Problems, 


with solutions, are provided at the ends of the chapters, for readers to solve for themselves. 


The programming language used in the main text is Fortran. Although it is somewhat unfashionable these 
days for general programming purposes, Fortran is still very widely used in engineering computation. 
Matlab versions of the programs are also provided in Appendices. Full listings of all the programs, both 


Fortran and Matlab, are available for download here. 


A prior knowledge of either Fortran or Matlab is desirable. The level of continuum mechanics, numerical 
analysis, matrix algebra, vector analysis and other mathematics employed is that normally taught in 
undergraduate engineering courses. The book is therefore suitable for engineering undergraduates and 
other students at an equivalent level. Postgraduates and practising engineers may also find it useful if 


they are comparatively new to boundary element methods. 

The book is presented in two Parts. This Part I starts with a brief review of the problems encountered 
in engineering, showing that they of two broad types. It then describes boundary element treatments of 
problems of the potential type, using both constant and quadratic boundary elements. Part II is concerned 


with elastic stress analysis problems of the plane strain and plane stress types. 


Imperial College London Professor Roger Fenner 
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Notation 


The mathematical symbols commonly used in the main text are defined in the following list. In some 
cases particular symbols have more than one meaning in different parts of the book, although this should 


not cause any serious ambiguity. 


A area of a solution domain 

[A] square matrix 

Aj coefficient of matrix [A] 

a4, A2, A3 constants in general boundary condition Equation 1.83 
[B] square matrix 

By coefficient of matrix [B] 

[b] column vector of known coefficients 

C torsional couple 

C, specific heat 

Crxs Cy Cyxs Cyy free term constants 

D flexural rigidity of a flat plate 

E Young's modulus 

e strain 

Fp, Fp drag and pressure flow shape factors for downstream flow 


fi function of position in Poisson’s equation 

ho function of position in biharmonic equation 

G shear modulus 

g acceleration due to gravity 

g heat generated per unit volume 

H height of a channel or solution domain in general 

H total rate of heat conduction 

h surface heat transfer coefficient 

i nodal point number 

unit vector in the x co-ordinate direction 

Jacobian of transformation (from global to intrinsic co-ordinates) 
J nodal point number 

unit vector in the y co-ordinate direction 
ratio of outer to inner radius for a cylinder 
thermal conductivity 

nodal point number 

unit vector in the z co-ordinate direction 
maximum dimension of the solution domain 


element number 


i 

k 

k 

k 

M total number of boundary elements in a mesh 
m 

N total number of nodes in a mesh 

N, 


shape function 


ay 


direction of outward normal to the boundary of a solution domain 


outward normal vector to boundary 
Download free eBooks at bookboon.com 


J 
J 
K 
L 
n 
n 


Ny, Ny components of n in the x and y directions 


n unit outward normal vector to boundary 
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> 


y components of 7 in the x and y directions 
source/force point on a boundary 
pressure gradient in the zco-ordinate direction 
pressure 


io las 


source/force point 

volumetric flow rate 

field point on a boundary 

field point 

a function of intrinsic co-ordinate € 

radial co-ordinate 

distance between a source/force point and a field point 
vector distance between points 

unitvector in the direction between points 

boundary of a domain 

distance along a boundary 

vector tangent to a boundary 

ratio between lengths of successive elements on a boundary segment 
part of a boundary forming element m 
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distance along a solution domain boundary 

temperature 

traction kernel function 

remote temperature of surroundings in thermal convection 
time 

traction 

displacement kernel function 


Sot eas 


displacement or velocity in thexdirection 

Uy displacement in the radial direction 

Ug displacement in the@ direction 

u mean value of u 

V, velocity component of a boundary in the z co-ordinate direction 

v displacement or velocity in theydirection 

v mean value of v 

WwW width of a channel or solution domain in general 

WwW displacement or velocity in thezdirection 
global Cartesian co-ordinates 

/Z components of body forces per unit volume in the Cartesian co-ordinate 
directions 

X,Y,Z Cartesian co-ordinates 

[x] column vector of unknown quantities 


a coefficient of linear thermal expansion 


a coefficient in mixed boundary condition, Equation 2.32 
B coefficient in mixed boundary condition, Equation 2.32 
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Subscripts 
c 

e 

i,j,k 

L 

m 

n 

PI 


T 
XV, zZ 
0 

1,2 
1, 2,3 


Superscripts 
* 


* 


an angle 

change in temperature 

a small distance 

local intrinsic co-ordinate within an element 
angle of rotation per unit length of a bar in torsion 
angular co-ordinate 

an angle 

permeability of a porous medium 

viscosity 

Poisson's ratio 

local intrinsic co-ordinate within an element 
dimensionless pressure gradient 
dimensionless flow rate 

density 

stress 

velocity potential 

fundamental solution for potential 

stress function 

stream function 

potential 

grad operator 

harmonic (Laplacean) operator 

biharmonic operator 


counter for nodes within an element 

von Mises equivalent (stress) 

nodal point numbers 

solution to Laplace’s equation 

element number 

direction of the outward normal to a boundary 
particular integral solution satisfying Poisson’s equation 
radial direction in polar co-ordinates 

direction along a boundary 

segment 

total solution (Laplace plus particular integral) 
Cartesian co-ordinate directions 

angular direction in polar co-ordinates 

inner and outer of two concentric circular boundaries 
nodes of a quadratic element 


effective value under plane stress conditions 
modified quantity 
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Some Program Variable Names 


The Fortran computer program variable names widely used in the programs and main text are defined 


in alphabetical order in the following list. 


A 
All 


Coefficients of matrix [A] 


Matrix diagonal coefficient A,(potential problems) 


AITXX, AITXY, AITYX, AITYY 


AJ 
AK 


Coefficients at the diagonal of matrix (elastic problems) 
Matrix coefficient A, 


First kernel function contributing to the matrix [A] (potential problems) 


AKXX, AKXY, AKYX, AKYY 


ALPERP 
ALPERP2 
ALPHA 
ALPHAN 
ALPHASEG 
ALSEG 
ANG 
ANGFIR 
ANGSEG 
ANGSTORE 
AROW 
AROWX 
AROWY 
BDPSI 
BETA 
BETAN 
BETASEG 
BY 

BK 


First kernel functions contributing to the [A] matrix (elastic problems) 
Perpendicular distance from centre of curvature to mid point of a segment chord 
Square of ALPERP 

Element values of constants in mixed boundary conditions 

Nodal point values of constants in mixed boundary conditions (quadratic elements) 
Boundary segment values of constants in mixed boundary conditions 

Length of a segment chord measured between its end points 

Angular position of current end point on a curved boundary segment 

Angular position of first end point on a curved boundary segment 

Angle subtended at centre of curvature by a curved boundary segment 

Angular positions of end points on curved boundary segments 

Array storing element node contributions to the [A] matrix (potential problems) 
Array storing element node contributions to the [A] matrix (elastic problems) 
Array storing element node contributions to the [A] matrix (elastic problems) 
Coefficient of right hand side vector (matrix [B] times vector of knowns) 

Element values of constants in mixed boundary conditions 

Nodal point values of constants in mixed boundary conditions (quadratic elements) 
Boundary segment values of constants in mixed boundary conditions 

Matrix coefficient B, 


Second kernel function contributing to the [B] matrix (potential problems) 


BKXX, BKXY, BKYX, BKYY 


BK2 


Second kernel functions contributing to the [B] matrix (elastic problems) 
Non-singular part of second kernel function when P is the current element node 


(potential problems) 


BK2XX, BK2XY, BK2YX, BK2YY 


Non-singular parts of second kernel functions when P is the current element node 
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(elastic problems) 


BROW Array storing element node contributions to the [B] matrix (potential problems) 
BROWX Array storing element node contributions to the [B] matrix (elastic problems) 
BROWY Array storing element node contributions to the [B] matrix (elastic problems) 

BTX, BTY Coefficients of right hand side column vector (matrix [B] times the vector of knowns) 
CASE Alphanumeric plane stress or strain problem type 

D Perpendicular distance from P to the element containing node Q 

DPS§I Nodal point values of the potential gradient solution to Laplace’s equation 

DPSIPI Nodal point values of the particular integral potential gradient function 

DPSIPIM Values of the particular integral potential gradient at the nodes of each element 
DPSISEG Values of potential gradient applied as boundary conditions to the boundary segments 
DPSISTORE ‘Temporary store for potential gradient 

DPSIT Nodal point values of total potential gradient (Laplace plus particular integral) 
DRDN Rate of change of radius with distance along normal to boundary 

DUDZ Rate of change of displacement u with € along element 

DVDZ Rate of change of displacement v with € along element 

DZDE Jacobian of transformation from intrinsic co-ordinate € to y 

E Young’s modulus 

EGL Values of the intrinsic co-ordinate at the Gauss points (logarithmic quadrature) 
ELENGTH Lengths of the elements 
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ESS 
ESTORE 
ETA 
EVX 
EVY 

Fl 
FLOWELEM 
FLOWIN 
FLOWOUT 
FLOWSEG 
FXELEM 
FXSEG 
FYELEM 
FYSEG 
HX 

HY 

I 

11, 12, 13 
IBC 
IBCD 
IBCE 
IBCM 
IBCN 
IBCP 
IBCPC 
IBCS 
IBCU 
IBOUND 
IC 
IDIRPC 
IEEND 
TEP1 
TEP2 
IFIRST 
IFLAG 
IGAUSS 
IINT 
ILAST 
IN 


Direct strain along boundary 

Stored value of Young’s modulus 

Intrinsic co-ordinate 4 

x component of the vector along an element 

y component of the vector along an element 

Constant function f, in Poisson’s equation 

Potential flow across an element 

Total potential flow into the domain 

Total potential flow out of the domain 

Flows of potential across the boundary segments 

Force on an element in x direction 

Total force on a boundary segment in x direction 

Force on an element in y direction 

Total force on a boundary segment in y direction 

Interval between points in the x direction used in domain integration 
Interval between points in the y direction used in domain integration 
Node counter 

Numbers of the three nodes of a quadratic element 

Type number of boundary conditions applied to the (constant) elements 
Counter for segments subject to applied potential gradient boundary conditions 
Type number of boundary conditions applied to the (quadratic) elements 
Counter for segments subject to applied mixed boundary conditions 
Type number of boundary conditions applied to the nodes (of quadratic elements) 
Counter for segments subject to applied potential boundary conditions 
Counter for point displacement constraints 

Counter for segments subject to applied stress boundary conditions 
Counter for segments subject to applied displacement boundary conditions 
Counter for boundaries 

Case number for logarithmic Gaussian quadrature 

Direction numbers of point displacement constraints 

Counter for element end points 

Counter for first end point of an element 

Counter for second end point of an element 

Numbers of first nodes on the segments 

Flag for ill-conditioning of the [A] matrix 

Counter for Gauss points 

Counter for internal points 

Numbers of last nodes on the segments 


Counter for nodes within an element 
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IROW 
ISEG 
ISEGBC 
ISEGELEM 
ISEGEND 
ISEGMAX 
ISEGMIN 
ISEND 

IT 

IX 


MAXNB 
MAXNEL 
MAXNEQN 
MAXNNP 
MAXNPC 
MFIRST 
MLAST 
MMAX 
MMIN 
NBCD 
NBCM 
NBCP 
NBCPC 
NBCS 
NBCT 
NBCU 
NBOUND 
NEEND 
NEL 


Number of row in the [A] matrix 

Segment counter 

Segment numbers for a particular type of boundary condition 
Segment numbers for elements 

Segment numbers for element end points 

Number of last segment on current boundary 

Number of first segment on current boundary 

Counter for boundary segment end points 

Number indicating type of Gaussian quadrature (normal or logarithmic) 
Counter for points in the x direction used in domain integration 
Maximum value of IX 

Counter for points in the y direction used in domain integration 
Maximum value of IY 

Node counter 

Jacobian of transformation from global to local intrinsic € co-ordinate 
Maximum number of columns in the extended [A] matrix 

Element counter 

Numbers of the elements adjacent to the first node of each element 
Numbers of the elements adjacent to the third node of each element 
Maximum dimension of the solution domain 

Maximum number of boundaries allowed by the array dimensions 
Maximum number of elements 

Maximum number of equations 

Maximum number of nodal points allowed by the array dimensions 
Maximum number of point displacement constraints 

Numbers of the first elements on the segments 

Numbers of the last elements on the segments 

Number of last element on current boundary 

Number of first element on current boundary 

Number of segments subject to applied potential gradient boundary conditions 
Number of segments subject to applied mixed boundary conditions 
Number of segments subject to applied potential boundary conditions 
Number of point displacement constraints 

Number of segments subject to applied stress boundary conditions 
Total number of segments subject to applied boundary conditions 
Number of segments subject to applied displacement boundary conditions 
Number of boundaries 


Number of element end points 


Number of elements 
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NELB Numbers of elements on the boundaries 

NELSEG Number of elements on current boundary segment 

NEP1 Numbers of the first end points of the elements 

NEP2 Numbers of the second end points of the elements 

NEQN Number of equations 

NGAUSS Number of Gauss points 

NINT Number of internal points 

NNP Number of nodal points 

NNPB Numbers of nodal points on each of the boundaries 

NODE Numbers of the nodes of the elements 

NODEPC Numbers of nodes subjected to point displacement constraints 

NSEGB Numbers of boundary segments on each of the boundaries 

NSEGTOT Total number of boundary segments 

NU Poisson’ ratio 

NX Number of internal points in the x direction used in domain integration 
NY Number of internal points in the y direction used in domain integration 
PI T 

PSI Nodal point values of the potential solution to Laplace’s equation 
PSIBOT Value of potential on the bottom edge of a rectangular domain 

PSIIP Laplace equation potential at an internal point 
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PSIIPT 
PSILEFT 
PSIPI 
PSIRIGHT 
PSISEG 
PSIT 
PSITOP 
PSIVAL 

RI 

RIX 


SEN 

SIGE 
SIGNN 
SIGNNSEG 
SIGSN 
SIGSNSEG 
SIGSS 
STORE 
TITLE 
TMX 

TX 

TMY 

TY 

U 

UELEM 
UNGX 
UNGY 


Total potential at an internal point (Laplace plus particular integral) 

Value of potential on the left hand edge of a rectangular domain 

Nodal point values of the particular integral potential function 

Value of potential on the right hand edge of a rectangular domain 

Values of potential applied as boundary conditions to the boundary segments 
Nodal point values of total potential (Laplace plus particular integral) 

Value of potential on the top edge of a rectangular domain 

Values of potential stored for domain integration 

Distance from point P to the first end of element containing node Q 

x component of radius vector from P to the first end of element containing Q 

y component of radius vector from P to the first end of element containing Q 
Distance from point P to the second end of element containing node Q 

x component of radius vector from P to the second end of element containing Q 
y component of radius vector from P to the second end of element containing Q 
Ratio between successive element lengths on current boundary segment 

Value of function R(é) 

Radius of curvature of current boundary segment 

Component in x direction of unit radius vector from P to Q 

Component in y direction of unit radius vector from P to Q 

Shape function derivatives for quadratic elements (normal quadrature) 

Shape function derivative values for quadratic elements (logarithmic quadrature) 
Shape function values for quadratic elements (normal quadrature) 

Shape function values for quadratic elements (logarithmic quadrature) 

Shape function value at a Gauss point 

Nodal point values of von Mises equivalent stress 

Nodal point values of direct stress normal to boundary 

Boundary segment values of direct stress normal to boundary 

Nodal point values of shear stress along boundary 


Boundary segment values of shear stress along boundary 


Nodal point values of direct stress along boundary 

Stored values in the boundary condition application process 
Alphanumeric title for the problem (maximum 80 characters) 
Element nodal point values of traction in x direction 

Nodal point values of traction in x direction 

Element nodal point values of traction in y direction 

Nodal point values of traction in y direction 

Nodal point values of displacement in x direction 

Element values of displacement in x direction 

x component of the unit normal at a Gauss point 


y component of the unit normal at a Gauss point 
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XC 
XCENT 
XEEND 
XFIRST 
XINT 
XLAST 
XMID 
XNODE 
XP 
XPOINT 
XQ 
XSEND 
XX 

YC 
YCENT 
YEEND 
YFIRST 
YINT 
YINTGL 
YLAST 
YMID 
YNODE 
YP 
YPOINT 
YQ 
YSEND 
YY 
ZETA 
ZG 


x components of the unit normals at the nodes of each element 

y components of the unit normals at the nodes of each element 

x components of the unit normals at the nodes 

y components of the unit normals at the nodes 

Boundary segment values of displacement in x direction 

Nodal point values of computed displacements (or tractions) 

Nodal point values of displacement in y direction 

Element values of displacement in y direction 

Boundary segment values of displacement in y direction 

Values of the Gaussian weighting factors (normal quadrature) 

Values of the Gaussian weighting factors (logarithmic quadrature) 

x co-ordinate of the origin for the particular integral function 

x co-ordinate of the centre of curvature of a curved boundary segment 
x co-ordinates of the element end points 

x co-ordinate of first end point of current boundary segment 

x co-ordinate of an internal point 

x co-ordinate of last end point of current boundary segment 

x co-ordinate of the mid point between the ends of a curved segment 
x co-ordinates of the nodes 

x co-ordinate of point 

Global x co-ordinate of an internal point 

x co-ordinate of Gauss point 

x co-ordinates of the boundary segment end points 

x co-ordinate relative to the origin for the particular integral 

y co-ordinate of the origin for the particular integral function 

y co-ordinate of the centre of curvature of a curved boundary segment 
y co-ordinates of the element end points 

y co-ordinate of first end point of current boundary segment 

y co-ordinate of an internal point 

Values of y direction integrals stored for domain integration 

y co-ordinate of last end point of current boundary segment 

y co-ordinate of the mid point between the ends of a curved segment 
y co-ordinates of the nodes 

y co-ordinate of point P 

Global co-ordinate of an internal point 

y co-ordinate of Gauss point Q 

y co-ordinates of the boundary segment end points 

y co-ordinate relative to the origin for the particular integral 
Intrinsic co-ordinate & 


Values of the intrinsic co-ordinate § at the Gauss points (normal quadrature) 
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Boundary Element Methods for Engineers: 
Part I: Potential Problems Introduction 


1 Introduction 


The aim of this chapter is to review many of the types of problems encountered in engineering, particularly 
those involving solid components or fluid flows. Problems from widely diverse branches of engineering 
are often governed by mathematically identical equations. This means that they can be solved using 
the same methods. Such methods may be either analytical where the problem is sufficiently simple, or 


computational in more general cases. 


Traditional methods of solving engineering problems involved the use of algebraic formulae derived 
from approximate analyses of the physical quantities of interest. For example, the distributions of 
displacements and stresses in a solid component, or of velocities, pressure and temperature in a flowing 
fluid, might be required. Such a problem had to be simplified to the point where an analytical solution 
could be obtained which, it was hoped, was a sufficiently good approximation to the solution of the real 
problem. With the advent of modern high-speed digital computers, the focus of engineering analysis 


has moved towards more versatile and accurate numerical methods. 
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Well-established types of numerical technique include the finite difference, finite volume and finite 
element methods. In all these methods, the distributions of the variables are obtained as approximate 
values at a large, but finite, number of discrete points over the entire region of interest, the solution 
domain. Despite some significant differences these methods are very similar in this important respect, 
and may be described as domain methods. In boundary methods, on the other hand, the primary results 
are the distributions of the variables on the boundary of the solution domain only, again defined in terms 
of values at a finite number of points. The most widely used name for such boundary-based techniques 
is the boundary element method. Another is the boundary integral equation (BIE) method, reflecting 
the fact that the differential equation governing the physical process throughout the solution domain is 


transformed into an integral equation applied to the boundary alone. 


The object of this book is to provide a simple treatment of the fundamentals, numerical implementation 
and some of the applications of boundary element methods to continuum mechanics problems in 
engineering. Part I is concerned with problems which fall into the category known as potential problems, 


while Part II deals with stress analysis of elastic solids. 


1.1 Continuum Mechanics Problems 


The concept of treating solids and fluids as though they are continuous media, rather than composed of 
discrete molecules, is one that is widely used in most branches of engineering. In this section, the basic 


equations of continuum mechanics are reviewed. 


The mathematical equations for the deformation of solids are very similar in form to those for the flow of 
fluids. The essential difference is that solid behaviour is described in terms of displacements and strains, 
but for fluids velocities and strain rates are the corresponding variables. Equations are presented here 
for Cartesian co-ordinate systems, first in their full three-dimensional forms. Problems considered in 


this book are two-dimensional, allowing further simplification of the equations. 


1.1.1 Stresses and strains 


The symbol g is used to indicate stress, and individual components are indicated by double subscripts 
direct stresses: 0x, Oyy, Ozz 
shear stresses: Oxy, Fyz, Fzx Syxs Ozys Oxz 
The first subscript defines the direction of the stress component, and the second one denotes the direction 
of the outward normal to the surface on which it acts, as shown in Figure 1.1. For any small element of 


material to be in equilibrium in a rotational sense, the shear stresses must be complementary 


yx? Oyz = Ozy, Ozx = Oxz (1.1) 
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Figure 1.1 Cartesian stress components 


The components of solid displacement or fluid velocity in the x, y and z co-ordinate directions are 
denoted by u, v and w. Following the same double subscript notation, the direct and shear components 


of strain or strain rate may be defined by 


_ du _ Ov _ Ow 
Cxx = ax’ eyy = ay’ Cxz = az (1.2) 
_ _ du , Ov 
ma ge aa ae (1.3) 
Ov Ow 
eye = Cay a By (1.4) 
Ow , Ou 
Czx = Cxz = Ox t az (1.5) 


1.1.2 Equilibrium equations 


If inertia effects are sufficiently small to be neglected, the partial differential equations of equilibrium in 


the three Cartesian co-ordinate directions are 


O0xx Ooxy O0xz Vv _ 
Bae ear rs Po +X =0 (1.6) 
Odyx , Ayy | AOyz , ZG _ 
erat ae te (1.7) 
O0zx Oozy 0072 F 
“ax ay Ta T2=9 (1.8) 


where X, Y and Z are the components at the relevant point in the material of any body forces per unit 


volume acting in the co-ordinate directions. The force of gravity is the most common example. 
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While inertia effects are not normally important in solid mechanics, they can only be ignored in fluids 
if the flows are ‘slow’ enough to be dominated by pressure and viscous forces. Otherwise, terms would 


have to be added to Equations 1.6 to 1.8. For example, Equation 1.6 becomes 


O0xx | Ixy 
Ox Oy 


“oa 


(1.9) 


+ 


+X= p(Stuttverwe 


where t is time /P and is the density of the fluid. This, together with the equivalent equations for the 


other two directions, are known as the Navier-Stokes equations. 


1.1.3 Energy equation 


If thermal convection is ignored, the equation for conservation of energy within a solid or fluid material is 


a°T . 0*T OT 
(S++ So) +g = ply = (1.10) 


where T is the temperature, g is the heat per unit volume generated at the point of interest, k is the 
thermal conductivity, and C, is the specific heat of the material. Heat may be generated, for example, 


by mechanical work, and 


J = Oxxlxx + Oyylyy + Ozz€zz + Oxylxy + Oyzlyz + Izx€zx (1.11) 
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Another example of heat generation in a material is when an electrical current is passed through a 
conductor. For a fluid in which heat is transferred by convection, the following term would have to be 
added to the right-hand side of Equation 1.10 


aT aT aT 
ply (ut+ve+wZ) (1.12) 


1.1.4 Compatibility equations 


Strains or strain rates should be compatible with each other. The physical interpretation of this statement 
is that no discontinuities such as holes or overlaps of material should exist, which in mathematical terms 
means that u, v and w should be continuous and differentiable functions of x, y and z. Using the six 
strain (rate) definitions from Equations 1.2 to 1.5, the following six relationships can be obtained by 


using differentiation to eliminate u, v and w. 


d? Cxex a? eyy = O?exy (1 13) 
Oy? Ox? Oxdy 


O*eyy | Bez _ O° eyz (1.14) 


az? ady2 —- ayaz 


07 ez | O7exx = 07 ezx (1.15) 
Ox? Oz? 0z0x 


9 07 ex 2(- deyz 


Berx , Oexy 
at = ap. Chae ) (1.16) 


Ox Oy Oz 


dey - = (= _ Oezx “1s LW 
OzOx Oy \ Ox Oy Oz ( . ) 

hc (= jie “ur ) (1.18) 
Oxdy 0z\ Ox Oy Oz 


Such compatibility equations rarely appear in fluid mechanics analyses, because these are normally set 
up with velocities as the unknowns. Compatibility of strain rates is then satisfied automatically. On the 
other hand, problems of solid stress analysis are often set up with stresses as the unknowns, in which 


case it is necessary to ensure that the strains are compatible. 


1.1.5 Continuity equation 


Conservation of mass in a fluid flow is ensured by the continuity equation. For a constant density fluid 


it becomes the incompressibility condition 


Oxy + Cyy + ez, = 0 (1.19) 
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1.1.6 Constitutive equations 


The connections between stresses on the one hand and strains or strain rates on the other are defined 
by constitutive equations which involve the appropriate material properties. For present purposes solids 
are assumed to be purely elastic and fluids to be purely viscous. The existence of viscoelastic materials is 
ignored. In general the properties of a material may vary. If they are independent of position the material 
is said to be homogeneous. If they are independent of direction at all points it is said to be isotropic. If 


they are independent of the stress or strain (rate) applied the material is said to be linear. 


Strains in an elastic solid may be produced both by applying stresses and by changing the material 


temperature. For a homogeneous, isotropic and linearly elastic solid the constitutive equations are 


Cxx = = [xx - V(dyy + Ore )| + aAdT (1.20) 
Cyy = = [oyy —v(o,, + a) + aAT (1.21) 
ezz = = [O22 = V(Oxx + dyy)| + aAT (1.22) 
ey = 2 = EG, (1.23) 
ey, = = —) Oyz (1.24) 


0 2(1+v) 
Crx = ex (1.25) 


In these equations E is Young’s modulus, G is the shear modulus, v is Poisson's ratio, @ is the coefficient 


of linear thermal expansion and AT is the temperature change. 


A Newtonian fluid is homogeneous, isotropic and linear, and under laminar flow conditions the 


constitutive equations for its flow are 
Oxx = —Pt 2Hexx, Oyy = —P+ 2Heyy, Ozz = —p + 2Hezz (1.26) 
Oxy =Hexy, yz = Heyz, Ozx = Hezx (1:27) 
where p is the hydrostatic pressure in the fluid and y is the viscosity. 


12 Some Practical Engineering Problems 


The following examples demonstrate the application of the above equations to practical problems. It is 
not the details of all the examples that are important, but rather the similarities between the resulting 


differential equations. 
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1.2.1 Downstream viscous flow in a uniform channel 


Figure 1.2 shows the cross-section of a uniform flow channel, which for present purposes is taken to 
be rectangular in shape. The lower three sides of the channel are assumed to be stationary while the 
top surface moves with a velocity V, in the downstream z-direction normal to the cross-section shown. 
The velocity of flow, w, is also in this direction. Because the channel is uniform, there are no variations 
of either geometry or physical variables in the downstream direction, with the exception that pressure 
is a linear function of z, but constant across the cross-section. Substituting the expressions for stresses 
given in Equations 1.26 and 1.27 into equilibrium Equation 1.8 and ignoring body forces, the governing 


differential equation for downstream velocity w becomes 


) dw te) Ow) _ Op _ 
aa Ge) + ay (#S) = oe 2) 
Because the viscosity is constant 
2 2 
CO a ge (1.29) 


Ox2 — ay* Le 


The mathematical symbol V” is a partial differential operator, and is sometimes referred to as the Laplacian. 


Problems governed by this type of equation may be referred to as either potential or harmonic. 
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Figure 1.2 Rectangular channel geometry and co-ordinates 


If there is no slip between the fluid and the solid walls of the channel, the boundary conditions for 


velocity are 
w=0o0nx=0, x=W and y=0; w=V, ony=H (1.30) 
The downstream volumetric flow rate is found by integration of the velocity profile over the cross-section 
Q= fy J, wdxdy (1.31) 


1.2.2 Torsion of a prismatic bar 


Figure 1.3 shows the cross-section of a prismatic bar, which for present purposes is elliptical in shape. 
The ends of the bar are twisted relative to each other about the z-axis normal to the cross-section shown. 
The St. Venant theory of torsion assumes that the deformation of the bar is a combination of a rotation 
of the cross-section and a warping in the z-direction, although there is no warping in the particular 
case of a bar of circular cross-section. The angle of rotation, in the anticlockwise direction, is assumed 
to be @ per unit length of the bar and the cross-section illustrated is assumed to be at a distance z from 


the position of zero rotation. Hence, the displacements of the typical point P shown in the figure are 
u=—6zy, v = 02x, w=wi(x,y) (1.32) 


x and y being the co-ordinates of P. The displacement w describes the warping of the cross-section. 


Figure 1.3 Elliptical cross-section of a prismatic bar 


Download free eBooks at bookboon.com 


Using the definitions of strains given in Equations 1.2 to 1.5 


Cxx = Cyy = Czz = Cxy = 0 
Ow Ow 
Cy, = Ox+ ay Get by (1.33) 


With displacements being chosen as the unknowns, compatibility Equations 1.13 to 1.18 are automatically 
satisfied. In the absence of temperature change, constitutive Equations 1.20 to 1.25, give the only nonzero 
stress components as oy, = Gey, and dz, = Gez,. Among the equilibrium Equations 1.6 to 1.8, only 
the last is relevant, and ignoring body forces becomes 

Oozx , A0zy _ 


ax ay (1.34) 


Consequently 


=V*w =0 (1.35) 


Figure 1.4 Part of the boundary of a cross-section of a prismatic bar 


The boundary conditions for this torsion problem are for the shear stresses acting on the outer surface 
of the bar to be zero. At a particular point on the surface let 1 be the direction of the outward normal 


there, in which case the surface stress Ozn is zero, and so is the complementary stress Onz. Consequently 


Onz = Oxz COSY + Oy, Siny = 0 (1.36) 
a a ' 
(~- ay) cosy + (= + 6x) siny = 0 (1.37) 


where Y is the angle between the direction of n and the x-axis. Boundary conditions for displacement 
of this type are not straightforward to apply, particularly for asymmetrical bar cross-sections where the 


position of the axis of rotation is not obvious. 
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This example provides a good illustration of the difficulties of formulating a problem in terms of 
displacements when the boundary conditions are defined in terms of stresses. Consequently, solid 
mechanics problems are sometimes more conveniently formulated in using stress functions. In this 


torsion problem stress function X can be defined to automatically satisfy the equilibrium Equation 1.34 


_ Ox ox 
Ozx = ay’ Oyz = ~ ax (1.38) 


The relevant shear strains are 
C7 Sa e€yz = —7ZT (1.39) 


which must the satisfy compatibility Equations 1.16 and 1.17, meaning that 


Oezx _ Oeyz 


oe ay = Constant (1.40) 


The value of the constant can be found from Equations 1.33 as —20. Then, substituting the strains defined 


by Equations 1.39 into Equation 1.40, the final differential equation for X is obtained as 


2 2 
Tx 4 od — yy = -266 (1.41) 
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In mathematical terms this is very similar to Equation 1.35. The zero shear stress boundary condition 
Onz = 0 is obtained when the gradient of the stress function along the boundary is zero, in other words 
when the value of is constant along the boundary. Because it is not the absolute value of the stress 
function, but only its derivatives, which determine the stress distribution, y = 0 is a suitable boundary 


condition, and much simpler to apply than Equation 1.37 for warping displacement. 


Given the shear stress distributions over the cross-section, the magnitude of the couple required to twist 


the bar may be found by integration 
C = ff (xoyz — yor) dx dy (1.42) 


Introducing the stress function already defined 


= ax ax 
C= — ff (xZ+yF) dx dy 


=a, [=en+Zon| dx dy + 2 ff x dx dy 


and applying Green's theorem to the first of these two integrals 


C = — G$(xy dy — yy dx) + 2 ff x dx dy 


The line integration in this new integral is carried out around the boundary of the bar. Because y = 0 


on this boundary, the expression for torsional couple becomes 
C=2 ff xdx dy (1.43) 


1.2.3 Ideal fluid flow 


The ‘ideal’ fluid model of flow can be used to describe the motion of real fluids in areas away from the 
wakes and boundary layers that occur near solid boundaries. Close to such boundaries viscous effects 
are significant, but an ideal fluid, which is homogeneous, isotropic and incompressible, is also assumed 
to have negligible viscosity. The flow of an ideal fluid is governed by pressure forces and fluid inertia. 
For two-dimensional flow in the x — y plane (with w = 0 everywhere) the equilibrium equations in 


the form of Equation 1.9 for steady (time-independent) flow with negligible external body forces are 


en AL 

ax? (u ax ” vs) (1.44) 
Ue CLA aad 1.45 
P= p(ul+ve) ( ) 
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The two-dimensional form of the continuity Equation 1.19 is 


du , Ov 
ax t ay ~ © 
which is automatically satisfied by stream function Y, defined by 


weil i Oe 


U= 
Oy’ Ox 


Equations 1.44 and 1.45 can be rearranged as 


Using Equations 1.47 for velocities expressed in terms of stream function, this becomes 


Vp =0 


Given the stream function distribution, the pressure distribution can be determined from 


u2+v2 
B + — = constant 


An alternative approach to ideal fluid flow problems is to define a velocity potential 


(1.46) 


(1.47) 


(1.48) 


(1.49) 


(1.50) 


(1.51) 


(1.52) 


(1.53) 


which automatically satisfies Equation 1.50. In order to satisfy continuity Equation 1.46 it is necessary that 


V70=0 


(1.54) 


The same mathematical form of equation is obtained, and the fact that it is for velocity potential helps 


to explain why problems governed by this type of equation may be referred to as potential problems. 
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1.2.4 Diffusion and potential problems 


Many physical processes involve diffusion and variables which are effectively a type of potential (including 
velocity potential in the ideal fluid flow problem above). An example is thermal conduction in solid or 
fluid materials, governed by the energy Equation 1.10. For steady heat conduction in the x — y plane 


this reduces to 
VT = = (1.55) 


Boundary conditions for the temperature may be of various types. The simplest is when the temperature 
at the boundary or part of the boundary is known. On the other hand, a boundary which is thermally 


insulated, with no heat transfer across it, is subject to the derivative condition 


af =i (1.56) 


ae 
As usual n is the direction of the outward normal to the boundary. A more general type of condition 


is applicable when the heat conducted towards the boundary is convected away from the surface into a 


fluid in contact with it 
aT 
“Khe = A(T —T.) (1.57) 


where h is the heat transfer coefficient and To is the remote temperature of the surrounding fluid. 
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Other examples of diffusion and potential problems are provided by electrical conduction, electrostatic 
potential in insulating media, fluid flow in porous media, and neutron diffusion in a nuclear reactor. 
Take the flow of a fluid in a porous medium, such as water seeping through rock or soil. The flow is 
Newtonian and at a microscopic level the volumetric flow rate along an individual passage in the soil 
is proportional to the local pressure gradient along the passage. Then at a macroscopic level the mean 
velocity in a given direction at a particular position, which is the sum of the flow rates along individual 
passages, is also proportional to the pressure gradient in that direction at the chosen position. Therefore, 


for two-dimensional flow in the x — y plane 
u=-k—, D=-k— (1.58) 


where k is the permeability of the soil, and pressure is effectively a form of velocity potential. As in 
the case of ideal fluid flow considered above, a stream function Y may be defined which automatically 


satisfies continuity 


7 oe Fie Oe 
i BS (1.59) 


Differentiation can be used to eliminate pressure from Equations 1.58 to give 
——- = Vp= (1.60) 


Boundary conditions are generally of the form of either prescribed constant values of for boundaries 


impervious to flow, or zero derivatives normal to boundaries where the pressure is constant. 


An alternative approach to porous media flow problems is to work in terms of pressure as a velocity 


potential. Substituting Equations 1.58 into continuity Equation 1.46 gives 
V7p=0 (1.61) 


1.2.5 Plane strain 


Both plane strain and plane stress are important types of two-dimensional solid loading and deformation. 
Figure 1.5 shows a solid body whose cross-section is does not vary in the -direction. If its length in 
this direction is large, the typical cross-section OABC shown can be treated as being far from the ends. 
Provided that the surface loadings applied to the body are in the x — y plane, the state of strain created 


at OABC is two-dimensional, independent of and with displacement w = 0. 


Download free eBooks at bookboon.com 


Figure 1.5 The plane strain approximation for a prismatic solid body 


Ignoring body forces, equilibrium Equations 1.6 to 1.8 become 


sit 4 2 — 9 (1.62) 
OOyx O0yy = 

ae eo 0 (1.63) 
O0zz _ 

<2 = 0 (1.64) 


Using the strain definitions given in Equations 1.2 to 1.5, ez, = ey, = €z, = 0 and with no temperature 


change constitutive Equation 1.22 becomes 
Ozz = V(Oxx + Oyy) (1.65) 


One method of continuing the analysis is to define a stress function X, known as Airy’s stress function, 


which automatically satisfies equilibrium Equations 1.62 and 1.63 


07x a7x a*x 
Oxx = ay?’ Oyy = ax2’ Oxy = — Oxdy oe) 


Using Equation 1.65 


Gp; = VV"-X (1.67) 
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and constitutive Equations 1.20, 1.21 and 1.23 give the nonzero strain components as 


aw 1 [OX (OX 2 

Cxx =F Ee (= +vV x)| (1.68) 
AO (OR ee 

Cyy =F sa i" (SF uy x)| (1.69) 
_ _ 2049) 07x 

exy = E axdy (1.70) 


These strains must be compatible. Equations 1.14 to 1.18 are automatically satisfied by the plane strain 


assumptions, and substituting the expressions for strains into Equation 1.13 gives 


a2 Od yy (58 e eyyargey)| Sa ox 
ae + ay4 v [2 Ixtay2 +vV“(V 0 = —-2(1+v) ax2ay? 
which can be simplified to 
Viv =0 (1.71) 


irrespective of the value of Poisson’s ratio. The biharmonic partial differential operator V* is defined by 


4 4 4 
Viy = V2(V2x) = S44 442 ae 


ay4 ax2ay2 (1.72) 


Equation 1.71 may be subject to various types of boundary conditions, including prescribed stresses or 


displacements. 


FULL ENGAGEMENT... 


RUN FASTER. oe 
RUNLONGER. | 
RUN EASIER... > 


Download free eBooks at bookboon.com 


— al 3 || 


Cons 


35 Click on the ad to read more 


1.2.6 Plane stress 


Figure 1.6 shows a flat solid plate lying parallel to the x — y plane. Provided the applied loadings are 
in plane of the plate as shown, the direct and shear stress components on the faces of the plate are zero. 
If the plate is thin then it may be assumed that throughout the material the plane stress approximation 
Ozz = Oyz = Oxz = 0 is applicable. Ignoring body forces, the equilibrium conditions again reduce to 


Equations 1.62 and 1.63, allowing the use of Airy’s stress function defined in Equations 1.66. 


x 


Figure 1.6 The plane stress approximation for a thin solid body 


Using constitutive Equations 1.20 to 1.25, ey, = ez, = 0 and with no temperature change 


Oxy = = (Sux — Voyy) = +($4 = ox) (1.73) 

eyy = = (yy = VOxx) = 1 (<4 —v =) (1.74) 

C2z = — 2 (Oxx + yy) = —LV?x (1.75) 

exy = 20+) Oxy =- 2a) a (1.76) 
If these expressions for strains are substituted into compatibility Equation 1.13 then 

Mh 4 TH py FX = 201 + v) 

Viv =0 (1.77) 


irrespective of the value of Poisson's ratio. The remaining compatibility Equations 1.14 to 1.18 are not all 
automatically satisfied but, it can be shown that they are satisfied approximately when the plate is thin 
enough for variations through the thickness of the stresses and strains are small enough to be ignored. 


The possible boundary conditions for plane stress problems are similar to those for plane strain. 
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1.2.7 Recirculating viscous flow 


In Section 1.2.1 the governing equation for downstream viscous flow in a uniform channel was derived. 
If, for example, the top surface of this channel, shown in Figure 1.2, moves with a velocity V, in the 
x-direction relative to the remaining stationary sides, a recirculating viscous flow is created in the plane 
of the cross-section. A stream function as defined in Equations 1.47 automatically satisfies continuity 
for this two-dimensional flow. Ignoring body forces, the equilibrium equations are Equations 1.62 and 


1.63. Introducing constitutive Equations 1.26 and 1.27, these equilibrium conditions may be expressed as 


wappeted se) 79 
waupete dee) 9 


Using differentiation to remove the pressure from these equations, and introducing the stream function, 


the governing equation is obtained as 
Vipy =0 (1.80) 


If there is no slip between the fluid and the solid walls of the channel, the boundary conditions are 


y=0, va—2e onx=0,x=W 
w=0, u=%=0 on y=0 (1.81) 


w=Q,, u=S=% ony=H 


where Q, is the volumetric flow rate per unit length of channel in the downstream direction leaking into 
and out of the channel in the small gaps between the moving and fixed channel surfaces. The absolute 
values of the stream function defined on these surfaces are not important, provided a difference of Q, 


is maintained between them, because it is only the derivatives of W that define velocities in the flow. 


In this problem of recirculating viscous flow, the direct strain rate in the z-direction is zero, and there 


is a close physical analogy with the plane strain deformation of solid bodies described in Section 1.2.5. 


1.2.8 Laterally loaded flat plate 
The last example concerns a flat plate, of uniform thickness , lying parallel to the x — y plane and subjected 
to a lateral pressure p(x, y). Without going into the details, the equation governing the displacement 
normal to the surface of the plate is 


Viw = (1.82) 


S|s 


Download free eBooks at bookboon.com 


Boundary Element Methods for Engineers: 
Part I: Potential Problems Introduction 


The parameter D = Eh?/12(1 — v”) is known the flexural rigidity of the plate. Applicable boundary 
conditions include w = 0 for a rigidly supported edge, and dw/dn = 0 (n being the direction of the 
outward normal to the boundary in the x — y plane) for an edge of the plate which is rigidly clamped 
and therefore not able to rotate. It is interesting to note the familiar mathematical form of the governing 


equation, although such plate bending problems are outside the scope of this book. 


1.2.9 General comments 


In the above examples there are obvious similarities between the governing partial differential equations. 
There are also a number of general observations that can be made. Problems involving solid bodies tend 
to be formulated in terms of stress variables (including stress functions) which automatically satisfy the 
conditions of equilibrium, and solutions are obtained which satisfy the equations of strain compatibility. 
On the other hand, problems in fluid flow tend to be formulated in terms of velocity variables (including 
stream functions) which automatically satisfy the continuity equation, and solutions are obtained which 
satisfy the equations of equilibrium. These approaches are guided by the forms of the boundary conditions, 
with stresses being more commonly prescribed for solids, and velocities for fluids. Such formulations 
are not necessarily relevant when numerical methods of solution are employed, particularly when more 


general mixed types of boundary conditions have to be satisfied. 
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Simple boundary conditions define either the value of the dependent variable on a boundary, or the value 
of its first derivative in the direction normal to the boundary. A more general boundary condition, of 


which these are special cases, is typified by Equation 1.57 which takes the form 
a 


where ¥W is the dependent variable and and are known constants. The order of the differential equation 
governing a problem, which is the order of the highest derivative in the equation, determines the 
number of boundary conditions required for a solution to be found. The second-order equations arising 
in Sections 1.2.1 to 1.2.4 need two conditions per co-ordinate direction, one on each boundary. The 
fourth-order equations arising in Sections 1.2.5 to 1.2.8 need four conditions, two on each boundary 


(for example, Equations 1.81). 


Solving the governing equations with the appropriate boundary conditions for a particular problem 
gives the dependent variable as a function of position within the region of interest, the solution domain. 
Some problems call for further analysis. Flow rate in Section 1.2.1 and torsional couple in Section 1.2.2, 
for example, are obtained by integration of the dependent variables over the solution domains. While in 
many of the problems described, body forces and temperature changes are ignored, if they were included 
the fundamental types of the differential equations obtained would not be affected. These equation types 


have a large impact on the methods of solution to be employed. 


1.1.10 | Harmonic and biharmonic equations 


The governing equations for the problems outlined are essentially of two types. 


a7 a7 

a tye VV PHY) ava 
aty , atw at 2(v2 4 

aa ae te = VV) = VX = fh @Y) (1.85) 


Ox* § ady* Ox2dy2 


Second-order Equation 1.84 is often referred to as Poisson's equation, reducing to Laplace’s equation as a 
particular casewhen f; = 0. Equation 1.85, on the other hand, is fourth-order. One way of distinguishing 
between the two types is by referring to them as harmonic (Equation 1.84) and biharmonic (Equation 
1.85), both somewhat mathematical descriptions. For practical engineering purposes it is perhaps more 
convenient to refer to problems governed by Equation 1.84 as potential problems. In this book, the only 
types of problems governed by Equation 1.85 which are considered in detail are elastic stress analysis 


problems, treated in Part 2. 


It is worth noting that all the problems considered are equilibrium problems, involving either steady fluid 
flows or static stresses in solids. If, for example, the time derivative term in Equation 1.10 is retained in 
Equation 1.55, the resulting unsteady thermal conduction problem is of the propagation type, with the 


solution changing with time. 
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1.3 Methods for Solving Harmonic and Biharmonic Equations 


Harmonic and biharmonic partial differential equations can only be solved analytically in few simple 
cases. Although many mathematical functions satisfy the differential equations, in general they cannot 
also satisfy the imposed boundary conditions, and it is the boundary conditions as well as the differential 


equations that define the solutions. 


Traditional numerical methods of solution are based on discretisation, with continuous functions such 
as stresses, displacements or velocities being represented approximately by discrete values at a finite 
number of points both within the solution domain and on its boundary. These values are computed from 
sets of simultaneous, normally linear, algebraic equations. The accuracies of the approximations increase 
with the numbers of points employed, especially if the extra points are concentrated in regions where 
the functions change their values rapidly. Various methods of analysis are used to assemble the required 


sets of linear algebraic equations, including finite difference, finite volume and finite element methods. 


The purpose of this book is to introduce a fundamentally different class of methods known as boundary 
element methods for solving potential and elastic stress analysis problems. As their name suggests, they 
require only the boundary of the solution domain to be discretised, although values of the variables can 


also be found at any point of interest within the domain. 


Problems 


1.1 The downstream viscous flow problem described in Section 1.2.1 has a plane of symmetry. If 
advantage is to be taken of this symmetry to analyse only one half of the channel, what are the 


boundary conditions that should be applied to the reduced domain? 
1.2 A thin membrane is subject to a uniform tensile force of S per unit length in all in-plane directions. 


Under a uniform pressure of magnitude p the deflection w in the z-direction of the membrane 


which lies in the x — y plane is governed by the equation 


Explain how such a membrane can be used experimentally as an analogue for the torsion 


problem. 


1,3 Water seeps through the porous rock underneath a concrete dam. Equation 1.61 for pressure 


governs this flow. What are the appropriate boundary conditions? 
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1.4 In the following problems a two-dimensional approximation is to be used for analysis. In each 


case, which is the more appropriate approximation, plane strain or plane stress? 


a) An elastic membrane under in-plane loading. 

b) The cross-section of a dam holding back water. 

c) The cross-section of a billet of metal undergoing forging. 
d) The cross-section of a thick-walled cylinder. 


e) A tension test specimen. 


13 What physical problems are represented by the following distributions of Airy’s stress function: 
(a) y = Ax’, (b) y = By?, where A and B are constants? 


1.6 Starting from Equations 1.20 to 1.22 under plane strain conditions in the absence of temperature 
changes, determine the direct stresses and in terms of the corresponding direct strains oy, and 


Oyy. What happens when the value of Poisson's ratio is 44? Explain the physical significance. 
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2 Boundary Element Analysis of 
Potential Problems 


In this chapter a form of boundary element analysis for two-dimensional potential problems such as 
those outlined in Chapter 1 is presented. Two types of elements are considered: constant and quadratic. 


Three-dimensional problems are discussed briefly in Section 7.3. 


From Equation 1.84, potential problems are governed by Poisson's equation 


ap , arp 
re = fi@%y) (2.1) 
where f; (x, y) is a known function of position within the solution domain. If f(x,y) = 0 everywhere 
then Equation 2.1 becomes Laplace's equation, which it is convenient to consider first 
ay 4 FH _ yey — 9 (2.2) 
ax2 ay2 . 
Possible boundary conditions at the edges of the domain are prescribed values of potential w, prescribed 


values of the potential gradient in the direction normal to the boundary, or in general a linear relationship 


between potential and potential gradient 
a 
ay fa + aw + az = 0 (2.3) 
where Q,, 2 and a3 are known constants. 


2.1 Fundamental Solution 


A substantial amount of fairly sophisticated mathematics has gone into the development of boundary 
element methods. In this book, however, only a minimum of mathematics is introduced, and the emphasis 
is on developing methods which are straightforward to understand and apply to practical engineering 


problems. 


In order to proceed, a special form of solution to Laplace’s equation is required, which is known as 
the fundamental solution. In practical terms, the fundamental solution is that due to a source of 
potential concentrated at a point in a solution domain of infinite extent in all directions. A mathematical 
requirement of the fundamental solution is that its value is singular (goes to infinity) at a point — the 
point where the source is located. The effects of a point source in terms of potential distribution will be 
the same in all directions moving away from the point. In two dimensions, if r and 6 are plane polar 


co-ordinates centred at the source point, the potential distribution will be a function only of r. In fact it is 


 =In(-) (2.4) 
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where “In” is the natural logarithm function. If co-ordinates x and y also have their origin at the source 


point then 
r= +(x? +?) (2.5) 
and @ = In (-) = In(x? + y2)-” = —¥ln(x? + y?) (2.6) 


Differentiating partially with respect to x 


ap  % ax x 

Ox ~ fe (x2 +y2) (x2+y2) (2.7) 
i te ye a (2.8) 
a gal Ox2 = (x2+y2) (x2+y2)2 x= (x2-+y2) (x2-+y2)2 . 
Similarly, differentiating partially with respect to Y 

op _ 

dy (x? ty?) (2.9) 

ao 2y? 

ay2 (x24y2) + (x24y2)2 (2.10) 
Adding the second derivatives defined in Equations 2.8 and 2.10 

0h 7b oop 2 2(xP ty) _ 

ax? * ay2 ES (x24+y2) | (x24y2)2 (2.11) 


and the fundamental solution satisfies Laplace’s equation, Equation 2.2. 


The physical significance of Equation 2.4 can be explored by regarding @ as the temperature in a medium 
of infinite extent in all directions, and having a thermal conductivity of k. Consider a point Z with co- 


ordinates (x,y) at distance r from a point heat source at O in Figure 2.1. 


Figure 2.1 Co-ordinates and geometry near a point heat source 
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The temperature gradient in the radial direction at Z is 


a _ 9 -_ ee 
or ar ( In r) ~ rT 
Now consider the circle passing through point Z of radius centred at point O. The total rate of heat 


conduction outwards across this circle is 
H=$k(-*)r do = $k do = 2nk (2.12) 


where the line integration is carried out around the circumference. The negative sign is present because a 
positive outflow of heat is associated with a negative temperature gradient in the outward direction. The 
magnitude of quantity H is the strength of the heat source, which is a constant. Under steady conditions 


the total heat conducted outwards from a point heat source is independent of the distance from the source. 


If p and q are any two points within the two-dimensional solution domain for a potential problem, the 


fundamental solution at q referred to an origin at p (or vice versa), may be expressed as 


1 
r (p,q) 


p= In| r(p,q) #0 (2.13) 
As r(p,q) approaches zero the solution tends to infinity, which is not permitted. Point p is referred to 


as the source point, q as the field point. 


2.2 Boundary Integral Equation 


The aim now is to relate what is happening within a solution domain of a potential problem to what 
is happening on the boundary, with a view to only analysing the latter. The above examination of the 
fundamental solution provides some useful guidance. Equation 2.12 was the result of summing the local 
heat transfer rates across the circle surrounding the heat source to give the total net heat flow, which 
under steady conditions must be equal to the magnitude of the source. It involved in effect an integral 
around the circle or boundary. This idea can be generalised: a boundary, S, of any size and shape could 
be drawn around the source. The total rate of heat conduction out of the domain can be found from a 


boundary integral along the path of the boundary 
ag 
H=@, k(-*)as (2.14) 


where 7 is the outward normal direction to boundary S. 
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The line integral symbol in Equation 2.14 means integration in the anticlockwise direction along the 
boundary enclosing the solution domain. In general, it means integration along the boundary in the 
direction which always keeps the domain on the left. If the domain contains a hole, for example, which 
is perfectly permissible in the present context, the solution domain would be defined by two boundaries: 
the outer one and the edge of the inner hole. Integration around the hole boundary would be in the 
clockwise direction to keep the domain always on the left. The sum of the integrals around the two 


boundaries would be required to find the total rate of heat conduction from the domain. 


Equation 1.55, a simplified form of the general energy equation, Equation 1.10, relates heat generation 


per unit area in the two-dimensional domain to the Laplace operator applied to temperature 
g=—kv*o (2.15) 


For a point source of heat, the magnitude of g can be thought of as tending to infinity at the point, 
but with the area over which it acts tending to zero. The summation of heat generated can, however, be 


expressed as 


H = ff, gdxdy = ff, (—kV’o) dx dy (2.16) 
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z= 
= 
= 
Ga 
a 
G 
2 
a 
a 


‘aM UID. EL0ZO 


where A is the area of the domain enclosed by boundary S$. Combining Equations 2.14 and 2.16, and 


removing the constant common factor of -k 
a 
ff, Vpdxdy = §, Sas (2.17) 


In this more general form, the sum of potential sources within a solution domain is equated to the net 


flow of potential across the boundary or boundaries. 


Comparing Equations 2.12 and 2.16 it is clear that for the fundamental solution associated with a single 


point source within the domain 
Sf, (V?p) dx dy = —2n (2.18) 


In mathematical terms, the magnitude of a source at a particular point is given by the divergence of the 


vector field. The vector field is the potential gradient 
= (1242) 6 = 12% 4 

Ve= (ic tig)o=i ue (2.19) 

where i and J are the unit vectors in the x and Y directions, respectively, and its divergence is 
~ (i242). (4% 2 

V. (Vp) = (i2 +42). (i= ue e)= vo (2.20) 

Equation 2.17 can be written as 
ag 

Sf, V- Vo) dx dy = $; 5, aS (2.31) 

and is sometimes referred to as the divergence theorem. It is a general result which holds for any 


continuous and differentiable function, and could therefore be written for not just potential gradient 


V.@ but for pV. where w is any (continuous and differentiable) function. 


ff, V-QVo) dx dy = §, pohas (2.22) 
Now V. (wp) = (i +5) (ivE+ivF) 
oe aa) iggy MOP cee” ayy 
and Equation 2.22 becomes 
ff, [pve + S24 ~ oe | ax dy = 4, pas (2.23) 
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Interchanging functions and @ 


2, 4 adap , ap ay _ ay 
ff, [vey + S24 sel dx dy = § bas (2.24) 
and subtracting Equation 2.24 from 2.23 
ag ay 
If, WVb— oVp)dxdy = & (pS- g*)as (2.25) 


which is a result known as Green's symmetric identity (symmetric because it is symmetric in functions 


wand ¢). 


Equation 2.25 looks promising in that the left hand side integral over the area of the solution domain 
involves V7 and V7y, which will both be zero if @ and w satisfy Laplace’s equation. Hence the area 
integral will also be zero, leaving only the boundary integral on the right hand side. Suppose that w 
is the required solution to Equation 2.2, and that @ is the fundamental solution. Now @ does satisfy 
Vv’? = 0, except at the source point for the fundamental solution if this is located within the solution 
domain. With a little care this can be dealt with. 


small circle 
radius € 


Figure 2.2 A two-dimensional solution domain, including a small circular region of radius € surrounding the 
source point p 


Surround the source point P with a small circle as shown in Figure 2.2. If the circle is very small, the 
value of w can be taken as constant within it, equal to the value at point p, that is w(p). The integral 
over the circle of V*@ is already known from Equation 2.18 (which evolved from Equation 2.12) as 


—2m. Equation 2.25 becomes 
a a 
2mp(p) + §, (pse- o) ds =0 (2.26) 
The function @ is known, so provided the values of both w and its gradient normal to the boundary are 


known at every point along the boundary, this provides a means of calculating the value of the required 


solution w at any point within the solution domain. The challenge now is to find these boundary values. 
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It can be anticipated that if point p is taken to the boundary at a point P, the resulting equation will 


involve only quantities on the boundary. 


arc of circle 


(a) 


Figure 2.3 Typical point P on the boundary 
(a) Pon a smooth part of the boundary (b) P at a corner 


Around the source point P on the boundary, which is assumed to be locally smooth as in Figure 2.3a, 
consider an arc of a circle centred at P, the ends of which are on the boundary. “Smooth” in this context 
means that the direction of the tangent to the boundary does not undergo an abrupt change at point P. 
If the radius of the arc is very small, the value of w can again be taken as constant within it, equal to the 
value at point P, that is (P). The integral over the region enclosed by the arc of V7@ can be inferred 
from Equation 2.18 (which again evolved from Equation 2.12) as -7, because as the radius of the arc 
shrinks to zero the region of integration becomes a semi-circle, containing just half of the effects of the 


point source (the other half being outside the boundary). Equation 2.25 becomes 


mp(P) + § (p— 6“) as =o (2.27) 
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which is now a truly boundary integral equation. The first term in this equation, which does not involve 
integration, is referred to as the “free term” If boundary point P is not on a smooth part of the boundary 
but at a corner such as that shown in Figure 2.3b, then the free term becomes 6y(P), where 6 is the angle 
between the tangents at the corner measured through the domain. In practice, the precise magnitude of 


the constant in the free term is not important because it can be found in another way. 


Equation 2.27 is the boundary integral equation for point P as the source point of the fundamental 


solution. To improve the clarity of what it means it can be written as 


do (P,Q) dw 
my(P) + & WOT SO= § (FZ), a@ (2.28) 


Point Q is on the boundary and moves around the boundary as the integration with respect to S, the 
distance along the boundary, proceeds. Function @(P, Q) is the fundamental solution for field point Q 
due to a source point at P, and n is the direction of the normal to the boundary at the field point. At 
any point Q either the value of w or its normal gradient will be known from the boundary conditions 
of the particular problem (or there will be a known linear relationship between them). Care will have 
to be taken when Q passes through P during the integration, because there the fundamental solution 


is not defined. 


2.3 Discretisation of the Boundary Integral Equation 


In general, Equation 2.28 cannot be solved analytically, and some form of numerical method must be 
employed. Solution variable y is found not as a continuous algebraic function of position along the 
boundary, but as numerical values at a finite number of discrete points on the boundary. The boundary 
may be subdivided into small pieces or boundary elements. Associated with each element are one or 
more of these points, known as nodes or nodal points. The distributions of w and its normal gradient 
over the elements are defined in terms of nodal point values by suitable interpolation functions. For 
example, the simplest type of boundary element is the constant element, having a single node at its centre 
and over which the variables are assumed to be constant. Next comes the linear element with a node at 
each end and assumed linear variations between them. Then the quadratic element with an additional 


node at its centre and assumed quadratic variations between the three nodes. 


Whichever type of boundary element is used, boundary integral Equation 2.28 is applied to each of the 


N nodal points P in turn, in the discretised form 


M 
mp(P) + > [. ¥(Q) moll naa ppls@ = 2 l cin aol (F),s@ (2.29) 
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The total number of boundary elements is M, m is an element counter, and 5, is the piece of the boundary 
occupied by element number m. The details of how integration is carried out over an individual element 
depend on the type of element involved. Equation 2.29 represents a set of N linear equations, where N 
is the number of nodal points (NV = M for constant or linear elements, N = 2M for quadratic elements). 


They can be expressed as 


[Alby] = (8) [3 (2.30) 
where [A] and [B] are square matrices containing known constant coefficients, and in general all will be 
non-zero. The column vectors [y] and [| contain the nodal point values of potential and potential 
gradient normal to the boundary. At each node one of these will be unknown and one of them known, 
or there will be a linear relationship between them. The equations can be rearranged, taking all unknown 
quantities to the left hand side, known quantities to the right hand side, giving a set of linear equations 


in a familiar form 


[A"][x] = [B*]Ly] = [5] (2.31) 


where [A*| and [B*] are modified coefficient matrices and [b] is a column vector of known coefficients. 
This set can be solved for the N unknowns x at the nodes, meaning that the potential and potential 
gradient are known at every nodal point on the boundary. Given this information, values of potential 


at points within the solution domain can be found from Equation 2.26. 


The case of a “mixed” boundary condition where there is a linear relationship between potential and 
potential gradient deserves a little more explanation. The general form is given by Equation 2.3, which 
for present purposes can be re-expressed as 
a 

a e+ B (2.32) 
where @ and f are known constants. In Equations 2.30 the potential gradient for the relevant node is 
replaced by the expression aw + f, where the potential is unknown. While # remains on the right hand 
side and contributes to known vector [b], ap is taken to the left hand side by subtracting a times the 
relevant coefficient of [B] from the corresponding coefficient of matrix [A]. The details of this process 


should become clearer when the programming of the analysis is considered. 
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2.4 Constant Boundary Elements 


SS 


Figure 2.4 Constant element discretisation of a two-dimensional solution domain boundary 


A constant boundary element for a two-dimensional problem takes the form ofa straight line representing 
a piece of the boundary of the solution domain. The potential and potential gradient are assumed not 
to vary along an element, their constant values being assigned to the central nodal point of the element. 
Figure 2.4 shows a typical arrangement of constant elements on a boundary. Since the number of nodes 
is equal to the number of elements it is convenient to number both nodes and elements in the same 
sequence, taken from an arbitrary starting point and keeping the domain to the left of the direction of 
numbering. Element number m forming piece Sof the boundary therefore contains node number j, 


where j = m. Equation 2.29 becomes 


*PaMasad S}U 
“ANUIIVY 
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M 


M 
mp(P) + Dom I. on ealtas@ = > (S). I, In la 7m ds(Q) (2.33) 


m=1 


The functions which have to be integrated in this equation are often referred to as kernels. The forms of 
these functions and the methods of evaluating the integrals depend on whether or not the node P and 


the point Q are in the same element. 


2.4.1 Points P and Q not in the same element 


Taking the general case shown in Figure 2.4, in which P and Q are not in the same element, the first 


kernel is 


Oo { In aol} = + (-Inr) = -== (2.34) 


Radius r is simply the scalar distance between P and Q, and = the rate of change of distance r with 
movement in the direction of the normal n. This function has to be integrated over each and every 
boundary element. While the potential and potential gradient are assumed to be constant over an 
individual element, the fundamental solution and hence kernel function associated with a particular 


point P varies over the element. 


element m 


Figure 2.5 Integration over a typical constant element 


Figure 2.5 illustrates the process for a typical element m with node j as its node. Point P is also a node, 


say the node numbered i(i # j) The coefficient A;; of matrix [A] in Equation 2.30 is therefore 


Ay = Js, aol In sal} dS(Q) = Jo (--2) ds (2.35) 


rdn 
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This is the coefficient in the i th row of the matrix, forming the equation for node i as the source point 
P, and in the jth column, corresponding to node j in element m. Angle @ is that between the radius 
vector r (from p in the direction of Q) and the outward normal vector n, and = = cos@. For a small 
incremental distance dS along the element from Q, the components along and perpendicular to vector 
rare dS sin@ and dS cos@, respectively, as shown in Figure 2.6. The latter is the same as r dO, which 


means that 


Ay = fy, (- 25) 45 = Soe (SEG = C40) = 41 — 0 (2:36) 


r cos@ 


Figure 2.6 Incremental distances at point Q 


The subscripts 1 and 2 refer to the ends of the element, taken in order along the boundary, always keeping 
the domain to the left. So the matrix coefficient is simply the difference between the angles at the first 
and second element ends (Figure 2.5), measured in radians. The required angles have to be computed 
with care, because inverse trigonometric functions have to be used, and these are multi-valued. A more 
robust approach is to find the angular difference (6; — 82) directly. Let 7; be the unit vector in the 
direction from point P to the first end of the boundary element, with components f,, and 7, in the 
x and directions, respectively. Similarly, let *2 be the unit vector in the direction from P to the second 
end, with components 7, and fy. Then the sine of the angle between them can be found from the 


vector product 


i Jj ok 

PAF. = |fix tty Of =k x1 x1 Xsin(O2 —6;) (2.37) 
Po, Foy 0 

sin(, = 62) = Pry tox — PyyPoy (2.38) 


where K is the unit vector in the direction, normal to the x — y plane. The angular difference can be 


found from 
0, = 62 = sin! (Fyfox = FixPoy) (2.39) 
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It is worth noting that this result still holds when P is on the same side of the boundary as the outward 
pointing normal, which can happen with more complicated boundary shapes, and particularly when 
there are holes in the domain and therefore more than one boundary. In mathematical terms, such a 


domain is said to be multiply-connected. 


The integral of the second kernel function gives the corresponding coefficient in the [B] matrix in 


Equation 2.30 


1 j= 


i Js, | nl a ds(Q) = i 7 ew ey) 


cos@ 


If d is the distance from point P to the foot of the perpendicular on the line of the element (Figure 2.5), 


then d = rcos@ and 


=i in (=) d dé 02 in (“) see ddé= df,’ | n (=) d(tand) 
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Integrating by parts 


cos@ 92 82 d —sin@ 
Bij =d In (=) tang] —d . tan@d (—) ( d ) dé 
cos@ 82 Q2 
=_ In (=) tand| +d] (sec*@ —1)d0 
d 61 04 


cos@ G2 
=d In (=) tan@é + tand — 6| 
d 6, 


which, given that d = r,cos 8; = 1,cos 02, becomes 
: 1 : 1 
By = r2,sin@z (In (=) + 1) — rsin0, (In (<) + 1) + d(6; — 92) (2.41) 


Dimension d can be found as the component of either 1, or Tz in the normal direction 7, in other 


words from the scalar product of, say, vector r, with unit vector i 
d= T1.n _ T1xNy + Tyyfy (2.42) 


where fi, and fy are the components of 7 in the x and Y directions. The two sines in Equation 2.41 


can be found from the relevant vector products 


k sinO; =n Ty 


sin0; = AyTry a Ay ty, (2.43) 
Similarly sin6, = fi, fy, — Ny fo, (2.44) 


2.4.2 Points P and Q in the same element 


Integration along the element containing the source point P involves integration through the singularity 
: : d : : 
of the fundamental solution. Radius r and normal n are orthogonal, - = 0 in Equation 2.35, and there 


is no contribution to the term on diagonal of matrix [A]. However, due to the free term in Equation 2.33 


Using constant elements with nodes at their centres, the boundary is locally smooth at every node. It is 
worth noting, however, that the coefficients in any row [A] of can be checked. If the potential is uniform 
over the entire boundary of the domain, it is also uniform over the domain itself. This means that the 


normal gradients of potential must be zero everywhere along the boundary. Hence 


[A] [yw] = [0] (2.46) 


Download free eBooks at bookboon.com 


and, since the w values are all identical, the sum of the coefficients in any row of [A] should be zero. 
Therefore 


In the case of constant elements this merely provides a useful check on the coefficients. When higher- 
order elements such as quadratic are used, however, it provides an important means of computing the 


diagonal coefficients. 


Figure 2.7 shows the situation when P and Q are in the same element, and the integral of the second 


kernel over this element is required. 


(2) 


(1) 


Figure 2.7 Special case when P and Q are in the same element 


Point P is at the centre of the element, so that 7; = r, and the integrals over the two halves of the element 
are identical. But they are also improper integrals, because of the singularity of the fundamental solution 
at P, and must therefore be treated as limits. Considering the integral over the half of the element between 
the first end, labelled 1, and the centre of the element 


i= i o Leal ds(Q) = 2 ry [ “i (*) -ar)} 


TY 1 
= 2lim tf In (-) ar} 
€>0 7 T 


1\]"1 m 4 
= 2lim,_,9 {[: In (—)| + | r- ar} 
r/\, - © 
1 "1 
= 2lim {[: In (-) +7| 
€>0 T € 


Download free eBooks at bookboon.com 


Boundary Element Methods for Engineers: 
Part I: Potential Problems Boundary Element Analysis of Potential Problems 


and because lim [e In (-)| = 0 this becomes 
e-0 E 
4 
While the kernel function is singular at P, its integral over the element is finite. 


The constant boundary element treatment of potential problems has the merit that the integrations of 
the kernel functions can be carried out analytically, thereby eliminating one source of inaccuracy. On 
the other hand, the use of straight line elements with one node at the centre of each provides only a 


relatively crude discretisation of the problem. 


2.5 Quadratic Boundary Elements 


After the constant element, the next simplest is the linear element. Although in two dimensions this still 
takes the form ofa straight line, it has a node at each end and accommodates linear variations of potential 
and potential gradient along its length. Much of the simplicity of the constant element treatment is thereby 
lost, but without any improvement in the ability to represent curved boundary shapes. Consequently, 


if higher-order elements are to be used, quadratic elements are generally preferred to linear elements. 


YOUR WORK AT TOMTOM WILL 
BE TOUCHED BY MILLIONS. 
AROUND THE WORLD. EVERYDAY. 


Join us now on www.tomTom.jobs 


follow us on Linked in| 


~ 


#ACHIEVEMORE 


Download free eBooks at bookboon.com 


57 Click on the ad to read more 


Ola~) 


n(qu 2° 


Figure 2.8 Quadratic element discretisation of a two-dimensional solution domain boundary 


Figure 2.8 shows a typical arrangement of quadratic line elements on parts of the boundary of a two- 
dimensional solution domain. Each element has three nodes, one at each end and one at its centre. While 
the end nodes are shown as solid circles, those at the centres of elements are shown as open circles. 
The relevant boundary integral equation is Equation 2.29. Note that, because the total number of nodal 
points is twice the total number of elements, 2M equations are generated, M being the total number 
of elements. The integrations involved in the evaluation of the equation coefficients must in general be 


carried out numerically. 


Figure 2.9 A typical quadratic line element 


Figure 2.9 shows a typical curved element. Its three nodes are numbered in the direction of integration 
from 1 to 3, these numbers being local to the particular element. The second node is at the centre of 
the element as measured along its curved length. A local co-ordinate, €, which is often referred to as an 
intrinsic co-ordinate, follows the curved shape of the element, and is said to be a curvilinear (curved line) 
co-ordinate. It has its origin at the centre node: that is, € = 0 at node 2, and takes the values -1 and +1 
at nodes 1 and 3, respectively. The reason for choosing this particular definition of local co-ordinate is 
to anticipate the use of Gaussian quadrature (Appendix A) for integration along the elements. The global 


co-ordinates describing the problem as a whole, rather than just the one element, remain as x and y. 
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With a quadratic element, the potential w, which is defined by its discrete values at the three nodes, 
W1, W2, and ws is allowed to vary quadratically with the intrinsic co-ordinate along the element. The 


distribution can be expressed as 
WE) = Ny (Spy + No (Fo + N3(F)W3 = Lear Ne (Hc (2.49) 
Functions N,, Nz and N3 which interpolate wy between the nodes are each quadratic, and must be such that 


W(-1) = yy = Ny (-Dy1 + No(-Dy2 + N3(-Dy3 
W(0) = Wz = N,(O)y1 + Nz (0). + N3(0)W3 
wW(t+1) = W3 = Ny(4+ 1), + N2(4+ D2 + N3(+1)3 


For example, N, is required to take the values 1, 0 and 0 at the three nodes. So, if 
Ny (6) =a + bg + c§* 
l=a-bt+c, 0=a, 0=a+b+c 
from which a = 0, b = 5, c= +5, and 
M8) = 56 - 1) (2.50) 
Similarly, N, is required to take the values 0, 1 and 0 at the nodes, and N, the values 0, 0 and 1, and 
N2(€) =1-& (2.51) 
N3(§) = 5 +1) (2.52) 


Functions N;, N2 and Nz are referred to as shape functions. They can also be used to define the variations 


of the potential gradient normal to the boundary in terms of the nodal point values 

a we oe OEY, 588 a 

ar) = M6) (HE) + MoE) (HF), + Ns (SE), = DE Ne (HF). (2.53) 
and the variations of the global co-ordinates 

x(E) = Ny (E)x1 + Nz (F)x2 + N3(E)x3 = Dear Ne (E) Xe (2.54) 


y(E) = My (Ey. + No (E)y2 + N3(@)y3 = Vda1 Ne(@yc (2.55) 
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Elements that use the same (shape) functions to interpolate both the geometry and the variations of the 
problem variables are known as isoparametric elements. Representation of the boundary geometry is 
now by means of a series of parabolas, each fitted through the three nodes of an element, rather than 
the straight lines associated with constant and linear elements. The parabolas reduce to straight lines 


wherever the boundary is genuinely straight. 


In order to find the vector normal, n, to the boundary at a point along an element, it is convenient to 


first find the tangent vector S (Figure 2.9). Moving along the boundary as the intrinsic co-ordinate ¢ is 


varied, the rates of change of the global co-ordinates are 7 and = and the tangent vector is 
=% 4%, 
S= ape ae (2.56) 


Given Equations 2.54 and 2.55, the rates of change are 


dx _ 3 ANE) dy 3 ame), (2.57) 


a 
= 
s 
—\ 
ow 
A 
ll 
ww 
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NTR 
a 
= 
iv} 
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oy 
A 
lI 
ye) 
wy 
a 
= 
w 
oe 
m 
~~ 
II 


1 
+ f+5 (2.58) 
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The vector normal can be found as the vector product of S$ and the unit vector in the third global co- 


ordinate direction, out of the plane of the solution domain 
n=nitnj=SAk=2i-Fj (2.59) 
where n, and ny are the components of n in the x and y directions. 


In order to integrate round the boundary it is necessary to change from global co-ordinate S to local 


intrinsic co-ordinate § within each element, by means of the Jacobian of transformation 


JQy= = or = |n2 +n2 (2.60) 


This Jacobian can also be used to define the components of the unit normal 


n 


n n 
n= = i+ j 
ang IO IO! 


=AyitAyj (2.61) 


Introducing the transformation from global to intrinsic co-ordinate, the boundary integral equation, 


Equation 2.29, becomes 
M 
mp(P) i, [. VOTBl mol} wx 


>) i onl (Ge)! es (2.62) 


Then introducing the parametric representations, Equations 2.49 and 2.53, for the potential and potential 


gradient distributions 


mp(P) + Ss Su. “aol aay} nese as 
m=1c=1 ~ : 


3 


y (4) i ii aa Ne(E) J(E) a (2.63) 


1c=1 


I 
Ms 


3 
I 


where C is the number (1, 2 or 3) of the node in element number m. 


Of the two kernel functions in Equation 2.63, the second one, on the right hand side of the equation, 
is straightforward to evaluate, except when points P and Q are in the same element. As in the constant 


element case, the first kernel is given by 


aot ol} = a Inr) = -2 88 (2.64) 
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where @ is the angle shown in Figure 2.5. Now 


rin - (Tx fy +Ty Ay) 


cos@ = = (2.65) 


r 


where 7, and 7, are the components of the radius vector, r, joining P and Q. 


2.5.1 Points P and Q not in the same element 


In general, the required integrations cannot be performed analytically, but may be carried out numerically 
using a method known as Gaussian quadrature, which is described in Appendix A. Provided point P is 


not in the element over which integration is required the process is straightforward. 


2.5.2 Points P and Q in the same element 


The case where P is in the relevant element requires some care, because when P and Q are coincident 
both of the kernel functions are singular. The orders of the singularities are r~' and In(r~*), respectively. 
Provided that P is not the c th node of the element, however, the shape function N,(&) goes to zero at 
P, and the products of kernels and shape functions (in Equation 2.63) are not singular at P, and may 


be integrated normally. 


If P is the c th node of the element then, provided that the boundary at this point is smooth, r and n are 
orthogonal and the first kernel is zero. The diagonal coefficient of [A] is given by Equation 2.45. If the 
boundary is not smooth at P, however, then the first kernel is not zero and is difficult to evaluate directly. 
The diagonal coefficient of [A], which includes the free term, is always obtainable from a summation 


condition equivalent to Equation 2.47. 


Ai = - > Ajj (2.66) 


In other words, the sum of the coefficients in any row of [A] should again be zero. 


Still considering P to be the c th node of the element in Equation 2.63, the second kernel requires special 
treatment to deal with the In(r~') singularity, using a modified form of Gaussian quadrature. The radial 


distance from P to a point Q at (x,y) can be arranged in the form 


r(P,Q) =nR(¢) (2.67) 


where R (é) is a known function and 7 is a modified intrinsic co-ordinate with its origin at P. The form of 
R(€) depends on which of the three element nodes P is located at. Co-ordinate 7 is chosen in each case 


to conform to the requirements of Gaussian quadrature involving a logarithmic function (Appendix A). 
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P at the first node 
If P is at the first node of the element 


r(P,Q) = [e-m)2+0-y)22 (2.68) 


and x and y are defined in terms of intrinsic co-ordinateé by Equations 2.54 and 2.55. So 


x — x, = [N,(G) — 1]x1 + NaS) x2 + N3(§)x3 (2.69) 
y— V1 = (NG) — 11 + N2@)y2 + N3 Sys (2.70) 
Intrinsic co-ordinate is chosen to range from 0 at the first node (€ = —1) to 1 at the third node 


(€ = +1), so that 


n=r+0  [F[=2 (2.71) 
[Ny (6) - 1] = 5 - € - 2) =5€ + NE - 2) =n -2) (2.72) 
N2(§) = 1-§? = 2n(1 -&) (2.73) 
N3() = 56(E + 1) =n (2.74) 
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Therefore 
x — x, = nl(E — 2)xq + 2(1 — §)x2 + €x3] (2.75) 
y- VM =n — 2)y, + 201 — F)y2 + F ys] (2.76) 


1 
R(E) = {1G — 2)aq + 201 — €)xg + Fxg]? + (E — 2). +20 - yo + Esl? (2.77) 
The integral of the second kernel in Equation 2.63 can be expressed as 


+1 1 ul 1 dé +1 1 
_ = ed am 2.78 

[. »feg) Osa =| mC) mav@|glant [ m(geq) @1@ae 2.78) 

Because R(é) is not zero within the range of integration, the second integral on the right hand side can 

be evaluated by normal Gaussian quadrature. The first integral on the right hand side, however, involves 

the singular logarithmic function, but can nevertheless be evaluated using the appropriate quadrature 


formula described in Appendix A. 


P at the second node 


If P is at the second node of the element 


r(P,Q) = [@-»)?+—y»)2 (2.79) 
X — X2 = N,(E)x, + [N2(E) — 1]x2 + N3(E)x3 (2.80) 
y — 2 = Ni (E)y1 + (N2(€) — Lye + N3()y3 (2.81) 


For integration purposes, the element needs to be divided into two regions, from the second node to the 
third node (€ = 0 to 1) and from the second node to the first node (€ = 0 to -1). Between the second 


and third nodes the intrinsic co-ordinate 7, is chosen as 


m=¢ = = (2.82) 
and N, (§) = 7§ - 1) =>mE- 1) (2.83) 
[No(§) - 1] = -¢? = —mé (2.84) 
N3() = 56 +1) =m +) (2.85) 
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Therefore 
1 1 
x— x, =m |; @ - Vx — Fx +5 E + 13] (2.86) 
y-y2=™ [; Givi -tya + € fr 1ys| (2.87) 


R® = {EE -Du- ha +2E+ Dx] +[EE- Dy — 2 +2 + Dy» } 28) 


Between the second and first nodes the intrinsic co-ordinate is chosen as 


= dg | _ 
m=-— |S|= (2.89) 
and R(é) is as defined in Equation 2.88. 
The integral of the second kernel in Equation 2.63 can be expressed as 
+1 1 
[, [ep] s-Os@ae = [in( in(—) nee [>| an + 
Sy n(~) NEYO [Z| ane + [71 7 Ne(E) G45 (2.90) 


The third integral on the right hand side can be evaluated by normal Gaussian quadrature, while the 
first and second involve the singular logarithmic function and must be evaluated using the appropriate 


quadrature formula. 


P at the third node 


If P is at the third node of the element 


r(P,Q) = [— x3)? + — ys? (2.91) 
x — x3 = Ny (E)x, + N2(€)x2 + [N3(E) — 1]x3 (2.92) 
y —y3 = Ni ()y1 + N2(S)¥2 + [N3(E) — 1 y3 (2.93) 


Intrinsic co-ordinate 7 is chosen to range from 0 at the third node (€ = +1) to 1 at the first node 
(€ = —1), so that 


n=>(1-€) a =2 (2.94) 
M(§) = 56 - 1) =-né (2.95) 
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N2(G) = 1-§ = 2n(1 +) (2.96) 
[N3(§) - 1] => +§ - 2) = - E+ 2) = -n€ + 2) (2.97) 
Therefore 
X—X3 =nl-Ex, +21 + &)xz — (E + 2)x3] (2.98) 
y—y3 =nl-Fy1 +201 + Pye — E + 2)y3] (2.99) 


1 
RE) = {[-Sx, + 201 + S)xq — ( + 2)x3]? + [-Ey, + 2(1 + Dye — E + 2)y3]?}2 (2.100) 
The integral of the second kernel in Equation 2.63 can be expressed as 


sv in{- 


way] Ne(S) IE) aE = fn“) NEVE) [Fl an + [Fn GS) Ne GME (2.101) 


The second integral on the right hand side can be evaluated by normal Gaussian quadrature, while 
the first involves the singular logarithmic function and must be evaluated using the appropriate 


quadrature formula. 
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2.6 Scaling 


Whether using either constant or quadratic boundary elements, or indeed any other type, spurious 
results can sometimes be obtained if the average domain dimension is of the order of unity. This makes 
the typical radial distance between nodes to be of order unity, at which value the logarithmic kernel 
function In (-) is zero. This difficulty can be simply avoided by ensuring that all distances between nodes 
are either less than or greater than unity. Of the two, the first is easier to achieve, by first determining 
the maximum dimension of the problem (the maximum distance between any pair of nodes) and using 
this to scale all the problem dimensions to be less than unity. Once the solution to the scaled problem 


has been obtained, the scaling can be removed. 


An interesting side effect of this scaling is that problems are in effect being solved in the terms of 
dimensionless ratios between actual dimensions and the maximum dimensions, thereby avoiding the 


issue of what is meant by the logarithm of a dimensioned quantity. 


2.7 Solving the Linear Equations 


Using either constant or quadratic boundary elements the final outcome of the analysis is a set of linear 


equations of the form 
[A][x] = [b] (2.102) 


where [A] and [b] are respectively a matrix and column vector of known coefficients. Few if any of these 
coefficients are zero in magnitude. This feature has an important bearing on the best choice of method 
of solution. For example, iterative methods such as Gauss-Seidel are not suitable (and probably would 
not converge). Direct elimination-type methods are appropriate, and one of the most common, Gaussian 
elimination, is chosen here. The method is described in detail, including an appropriate computer 


subprogram, in Appendix B. 


2.8 Solving Poisson's Equation 


So far in this chapter attention has been focussed on solving Laplace's equation, Equation 2.2, rather 


than the more general Poisson’s equation, Equation 2.1 
ap 
at ae EHD) (2.1) 


With a non-zero function on the right hand side, integration of this function is required. For a general 
function of position, which cannot be integrated analytically, numerical integration over the solution 
domain is required. From the problems reviewed in Chapter 1, however, it is clear that the special case 
of constant f, (independent of co-ordinates x and y) is one that embraces many problems of practical 


interest in engineering. 
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The solution to Poisson’s equation can be expressed as 


p= typ, a) 


where wy, is the solution to Laplace's equation (f; = 0) and Wp; is any function (a particular integral) 


which satisfies 


eee (2.104) 
One possible form is 

Wpy = 4x? + coy? (2.105) 
where c, and cz are constants which must be such that 

2c, + 2c2 = fy (2.106) 
A possible choice of constants is 

q=c=4 (2.107) 


Because the total solution expressed in Equation 2.103 must satisfy the applied boundary conditions, 
it means that y, the solution to Laplace’s equation, must satisfy these conditions with the boundary 
conditions implicit in Equation 2.105 subtracted. In other words, at any point on the boundary at which 


potential is prescribed, from this prescribed value must be subtracted the value of 
bp = 2x? +?) (2.108) 


At any point on the boundary at which potential gradient is prescribed, from this prescribed value must 


be subtracted the value of 


fy, =+(xf, + yi,) (2.109) 


where ft, and ft, are the components in the x and y directions of the unit outward normal vector to 


the boundary at the point concerned. 
So Poisson’s equation can be solved by the boundary element method as though it were Laplace's 


equation, by simply modifying boundary conditions. Once the solution is obtained, the contributions 


of the particular integral to the computed boundary values are added back in. 
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With an f1(%,y) function other than constant, the same kind of procedure can be applied, provided 
a particular integral equivalent to Equation 2.105 can be found by analytical integration of f;(%,y). If 


this is not possible then numerical integration over the domain must be used. 


Problems 


va | Show that the fundamental solution defined by Equation 2.4 satisfies Laplace’s equation in plane 


polar co-ordinates 


a6 106 a2 
2 = — —-—. —_ = 
y O = Fa vag” O82 


2.2 Define the constants a,, az and @3 in the general potential boundary condition Equation 2.3 in 


terms of the heat transfer parameters in Equation 1.57. 


20 For a linear boundary element with a node at each end, the distribution of potential can be 


expressed as 


WS) = Ni) + N2() 2 


where y, and y, are the values at the first node where €=-1 and the second node where €=+1, 


respectively. Derive expressions for the shape functions N, (€) and N, (é). 
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2.4 


2.5 


2.6 


2.7 


2.8 


2.9 


Show that the quadratic element shape functions are such that 


N,(&) + N2(é) + N3(€) = 1 


for all values of the intrinsic co-ordinate. 


Show that if a quadratic boundary element is a straight line, the quadratic interpolations of 


geometry implied by Equations 2.54 and 2.55 reduce to the appropriate linear forms. 


For a straight line boundary element, show that the Jacobian of co-ordinate transformation 
defined by Equation 2.60 is constant along the element, and find its magnitude in terms of the 


global co-ordinates of the end nodes of the element. 

A quadratic boundary element is used to approximate the arc of a circle, with its three nodes 
located on the arc. The arc subtends an angle of either (a) 90° or (b) 45° at the centre of the 
circle. In each case find the error in the distance from the centre of the circle, expressed as a 


percentage of the true arc radius, at a point half way between two of the nodes. 


Show that for a straight quadratic element the function R(¢) in Equations 2.67 and 2.77 reduces 


to the length of the element, and therefore cannot be zero. 


Derive a suitable particular integral for Poisson’s equation, Equation 2.1, when 


fi y) =Ex+Fy+G 


where FE, F and G are constants. What changes to the boundary conditions for the boundary 


element solution to the corresponding Laplace equation should be made? 
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3 Constant Boundary Element 
Program for Potential Problems 


In this chapter a computer program to implement the constant boundary element formulation for two- 
dimensional potential problems developed in Chapter 2 is presented and described in detail. It is then 
used to solve some typical problems to demonstrate the capabilities of the method, particularly problems 


where exact analytical solutions are available for direct comparison. 


The programming language used is Fortran, whose name is derived from Formula translation, and which 
is particularly suitable for engineering and scientific applications. Despite being somewhat unfashionable, 
the fact remains that the majority of engineering computer programs currently in use are written in 
Fortran. The programs presented here were run using a Fortran 95 compiler. While more recent versions 
of Fortran have been published, the enhancements they offer are not of significance to the type of simple 


programming of numerical computation procedures employed here. 
For readers who prefer to use Matlab, a translation is provided in Appendix C. 


Digital computers, whether desktop or laptop, work in binary arithmetic. Both numbers and characters 
are represented and stored as a number of binary digits or ‘bits, and these bits are grouped together in 
‘bytes’ (1 byte = 8 bits). Individual numbers are usually represented by either 32 bits (4 bytes) or 64 bits 
(8 bytes) depending on both the computer and whether the double precision option is selected in the 
Fortran program. If the number of bits is small the precision of stored numbers is relatively low and 
significant roundoff errors may be accumulated in the course of a calculation, depending on the method 


of calculation used. All the case studies described in this book were run using 64-bit number storage. 


The style of writing programs should be such as to make the coding straightforward to follow and 
check, and at the same time efficient in terms of execution time and memory. With these requirements 
in mind the programs in this book use variable names which are readily identifiable with the physical 
or mathematical quantities they represent. Whenever possible the same names are used throughout, 
their definitions being listed at the beginning of the book. The programs are divided into relatively short 
subprograms which can be written, developed and tested separately. Also, comment statements are used 
liberally, both to explain the coding and to separate successive sets of statements for improved readability. 
For the same reason, a uniform system of statement numbering is used within each subprogram, input 
and output FORMAT statements being numbered from 51 and 61 respectively. This last convention is a 
hangover from the Fortran tradition in which the (magnetic tape) unit number for input was 5, while that 


for output was 6, the same digits being used to start the corresponding FORMAT statement numbers. 
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Using either a desktop or laptop, input data for a program can be entered from the keyboard as required. 
Alternatively, a data file can be prepared and stored before the program is run. In this book, the latter 
approach is adopted. This is because in practice programs need to be run several times, with mostly the 
same input data, requiring only small changes to the data file. Similarly, computed results can be output 
to either the computer screen or a stored file. The latter is preferred here because the file provides a 
potentially permanent record. The convention is adopted of naming the input file DATA and the main 
output file RESULTS. 


3.1 Program BEM2PC 


The program name indicates that it is for boundary element method analysis of two-dimensional potential 
problems using constant elements. Each of the subprogram units which make up the whole are described 


in turn. The Preface explains how the full program can be accessed as a single file. 


If the program appears long and complex, it is mainly because of the needs of data input, testing and 
output. The boundary element core is quite compact. Much of the data handling is concerned with the 
definition of the arrangement of elements on the boundary (or boundaries) of the solution domain, and 
the application of boundary conditions to them. The simplest approach would be to enter the co-ordinates 
of the end points of each and every element, followed by the type and magnitude of the relevant boundary 
condition applied to each. Indeed, this is still an option. But with potentially hundreds of elements, this 
would be tedious. Instead, the strategy adopted is to divide each boundary up into a series of boundary 
segments, which are either straight lines or circular arcs. The number of elements within a segment can 
then be chosen, and varied easily, and from which the program generates all the element geometric data. 
The elements on a segment do not have to be uniform in size, but can be varied in length by a constant 
ratio between successive elements. In the present version of the program, each segment is subject to only 
one uniform boundary condition, be it prescribed potential, prescribed potential gradient, or prescribed 
mixed condition connecting potential and potential gradient. The program distributes this condition to 
all the elements involved. Consequently, the ends of segments are conveniently defined as points where 
there is a significant change in either shape (a corner, for example) or boundary condition. How this 


works in practice is demonstrated later in this chapter. 


3.1.1 Main program 


At the beginning of the program is a storage module named SHAREDDATA2PC which allows stored 
data to be accessed and shared by all those subprograms that require it (by means of a USE statement). 
The dimensioned array sizes in the module allow for up to 1000 constant boundary elements on up 10 
different boundaries forming the solution domain. The maximum number of linear equations to solved 


is 1000. A dictionary of the variable names used is provided at the beginning of the book. 
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The main program named BEM2PC is designed mainly to call each of the other subprograms in turn. It 
does, however, also serve to name the files with which the program communicates via OPEN statements. 
File DATA, which is addressed as file number 5 in the program, serves to supply the input data which 
defines the current problem. The main output of results is to file RESULTS, addressed as file number 6. 
Element mesh data, on the other hand, are output to file MESHRES (mesh results) and numbered 7. The 
term mesh is borrowed from finite elements, although for two-dimensional boundary element analysis 
the mesh takes the form of a line following the boundary. The rationale behind splitting data output 
between two files is that, in a typical problem once the mesh data are established and checked, attention 
turns to the results of the computation, which will often require several runs, looking at file RESULTS 
each time. Mesh data, which generally involve a lot of information, are available in MESHRES but need 


not be accessed every time the program is run. 


MODULE SHAREDDATA2PC 
| 
! MODULE STORING SHARED DATA. 
| 
REAL :: XEEND(1010),YEEND (1010) ,XNODE (1000) , YNODE (1000) 
REAL :: XSEND(1000),YSEND (1000), UNX (1000) , UNY (1000) 
REAL :: F1,XC,YC,PSI(1000) ,DPSI (1000) ,ALPHA (1000) ,BETA(1000) 
REAL :: PSISEG(1000) , DPSISEG (1000) , ALPHASEG (1000) , BETASEG (1000) 
REAL :: STORE(1000),PSIPI (1000) ,DPSIPI (1000), PSIT (1000) 
REAL :: DPSIT(1000),FLOWSEG (1000) 
REAL :: PI,A(1000,1001) ,MAXL, ELENGTH (1000) 
INTEGER NEL, NNP, MAXNNP, MAXNB, NEP1 (1000) , NEP2 (1000) , NEEND 
INTEGER NBOUND, NSEGTOT, NNPB (10) , NSEGB (10) 
INTEGER NBCP, NBCD,NBCM, NBCT, IBC (1000) 
INTEGER ISEGBC (1000) , IFIRST (1000) , ILAST (1000) 
INTEGER ISEGEND (1000) , ISEGELEM (1000) 
END MODULE SHAREDDATA2PC 
PROGRAM BEM2PC 
| 
! PROGRAM FOR SOLVING TWO DIMENSIONAL POTENTIAL PROBLEMS BY THE BOUNDARY 
! ELEMENT METHOD USING CONSTANT ELEMENTS. 


USE SHARE 


O 


DATA2 PC 


OPEN (5, FILE="DATA") 


OPEN (6, FILE="RESULTS") 


OPEN (7, FILE="MESHRES") 


PI=4.0*ATAN(1.) 
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! DEFINE THE MAXIMUM PROBLEM SIZE 


U 


ERMITTED BY THE ARRAY DIMENSIONS. 


MAXNNP=1000 
MAXNB=10 


| INPUT THE PROBLEM TITLE AND TYPE. 


! INPUT OR GENERATE THE MESH DATA. 


CALL MESHC 


! OUTPUT TH 


r 


MESH DATA. 


CALL MSHOUT 


! INPUT, PROCESS AND OUTPUT THE BOUNDARY CONDITIONS. 


CALL BCS 


! IF GOVERNING EQUATION IS POISSON TYPE, MODIFY TH 


GI 


BOUNDARY CONDITIONS. 


CALL POISSON 


! FORM THE COEFFICIENT MATRIX AND APPLY TH 


Gl 


BOUNDARY CONDITIONS. 


CALL FRMTRX 


! SOLVE THE LINEAR EQUATIONS. 


MAXNNPP1=MAXNNP+1 


Q 
D> 
= 
HA 

pal 


ELIMIN (A, PSI,NNP, MAXNNP, MAXNNPP1, IFLAG) 


IF(IFLAG == 1) THEN 


WRITE (6, 61) 


61 FORMAT (/ "MATRIX ILL-CONDITIONING DETECTED IN EQUATION SOLVER") 


STOP 
END IF 


! OUTPUT NODAL POINT VALUES OF POTENTIAL AND POTENTIAL GRADIENT, 


! ALSO POTENTIAL FLOWS ACROSS BOUNDARY SEGMENTS. 


CALL OUTPUT 


! COMPUTE VALUES OF POTENTIAL AT INTERNAL POINTS. 


CALL INT! 


[7] 


RNAL 


STOP 
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After defining the maximum numbers of nodal points and elements (MAXNNP) and boundaries 


(MAXNB) permitted by the array dimensions, the main program calls the following subprograms in turn: 


INTITLE for the problem title, 

MESHC to input and create the mesh data, 

MSHOUT to write out the mesh data, 

BCS for the boundary conditions, 

POISSON to compute the particular integral if the problem is of the Poisson type, 
FRMTRX to define the [A] and [B] coefficient matrices, 

ELIMIN to solve the equations, 

OUTPUT to write out the results, and finally 

INTERNAL to find values of potential at any desired points within the domain. 


Note that if ELIMIN detects a singular or very ill-conditioned matrix a warning is written out and 
execution terminates. In practice this is most likely to be due to the coefficient matrix being singular. 


This can happen when the problem is inadequately defined, for example with only potential gradient or 


mixed boundary conditions, and potential nowhere defined. 


‘T studied © 
nglish for 16 
ears but... © 
_.1 finally 
learned to > 
speak it in j 


six lessons” 


Jane, Chinese architect 


OUT THERE 


Click to hear me talking 


before and after my 


unique course download © 
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oundary Element Program for Potential Problems 


3.1.2 Subprogram INTITLE 


An alphanumeric title for the problem is first read into TITLE. Next the constant value of function f; 
(Equation 2.1) is read into F1. If this value is zero the problem is of the Laplace type, and an appropriate 
message is written out. If it is not zero the problem is Poisson type and the global co-ordinates of the 
origin used to define to particular integral are read into XC and YC, normally chosen to be roughly at 


the centre of the domain. The value of f; together with the origin co-ordinates are then written out. 


SUBROUTINE INTITL 


r. 
GI 


Tr. 


! SUBPROGRAM TO INPUT PROBLEM TITLE AND TYPE (LAPLACE OR POISSON). 


USE SHAREDDATA2PC 


CHARACT! 


Gl 


R(80) :: TITL 


Gl 


! INPUT THE PROBLEM TITLE. 


READ (5, FMT="(A80)") TITL 


[I] 


iE 


WRITE(6,61) TITL 


61 FORMAT ("CONSTANT BOUNDARY ELEMENT SOLUTION FOR", 


& " TWO DIMENSIONAL POTENTIAL PROBLEM" // A) 


r 


! INPUT THE VALUE OF THE (CONSTANT) Fl FUNCTION IN THE GOVERNING 


! EQUATION. 


READ(5,*) Fl 


IF(F1l == 0.) WRITE(6, 62) 
62 FORMAT (/ "LAPLACE EQUATION") 
IF(Fl /= 0.) THEN 
WRITE(6,63) Fl 
63 FORMAT (/ "POISSON EQUATION, Fl = ",E12.4," CONSTANT") 


! INPUT THE COORDINATES OF THE ORIGIN FOR THE PARTICULAR INTEGRAL. 


READ (5,*) XC,YC 


WRITE (6,64) XC,YC 


64 FORMAT (/ "ORIGIN FOR PARTICULAR INTEGRAL:",5X,"X =",E12.4,5X, 


& "y =",E12.4) 


END IF 


RETURN 


cal 


ND SUBROUTINE INTITL 


25 


Gl 
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3.1.3 Subprogram to input and generate the element mesh data 


Subprogram MESHC reads ina minimal amount of information from which to create the mesh of constant 
boundary elements. The process is complicated by the fact that there are several levels of geometric 
features. Firstly, boundaries: there will be more than one for a multiply-connected domain, with internal 
holes within the outer boundary. Secondly, segments of boundaries whose ends are located at changes 
of either geometry or boundary condition, and can be either straight or follow circular arcs. Thirdly, the 
ends of elements which are distributed either uniformly or non-uniformly along the segments. Finally, 


the nodes of the elements, which are located at the mid points between successive element end points. 


SUBROUTINE 


< 


E SHC 


r. 


! SUBPROGRAM TO READ IN AND G 


INERATE THE GEKEOMETRIC DATA FOR A MESH OF 


! CONSTANT ELEMENTS. 


a 


G 
Nn 
nN 
ae 
> 
ve) 
‘S] 


DATA2 PC 


! INPUT THE NUMBER OF SEPARATE BOUNDARIES. 


READ (5, *) NBOUND 


! TEST THE NUMB 


I 


‘R OF BOUNDARIES. 


IF(NBOUND < 1 .OR. NBOUND > MAXNB) THEN 


WRITE (6,61) NBOUND, MAXNB 


61 FORMAT (/ "NBOUND =",14,2X,"OUTSIDE 


U 


ERMITTED RANGE 1 TO",14) 


STOP 


eal 


ND IF 


! FOR EACH BOUNDARY IN TURN INPUT TH 


r. 


: NUMBER OF SEGMENTS. 


NP=0 


N 
IEEND=0 
NSEGTOT=0 
ach boundary in turn: DO IBOUND=1,NBOUND 
NPB (IBOUND) =0 


N 
READ (5,*) NSEGB(IBOUND) 
NSEGTOT=NSEGTOT+NSEGB (IBOUND) 


! TEST THE NUMBER OF SEGMENTS. 


IF(NSEGTOT < 1 .OR. NSEGTOT > MAXNNP) THEN 


WRITE (6,62) NSEGTOT,MAXNNP 


Tr. 


62 FORMAT (/ "NSEGTOT =",16,2X,"OUTSIDE P 


(RMITTED RANGE 1 TO",16) 


STOP 
Download frepyeBgoks at bookboon.com 


Boundary Element Methods for Engineers: 
Part I: Potential Problems Constant Boundary Element Program for Potential Problems 


Gl 


! INPUT THE CARTESIAN GLOBAL COORDINATES OF THE END POINTS OF TH 


! SEGMENTS. TAKE THE END POINTS CONSECUTIVELY, KEEPING THE DOMAIN 


! TO THE LEFT OF THE DIRECTION OF NUMBERING. 


READ (5,*) (XSEND(ISEND) , YSEND (ISEND) , ISEND=1,NSEGB (IBOUND) ) 


! DEFINE THE FIRST END POINT ON THE 


Q 


URRENT BOUNDARY. 


XEEND (IEEND) =XSEND (1) 


YEEND (IEEND) =YSEND (1) 


! FOR EACH OF THE SEGMENTS (BETWEEN ENDS 1 AND 2, 2 AND 3, ETC.) 


! INPUT THE RADIUS OF CURVATURE (+VE FOR CONVEX WITH CENTRE OF 


! CURVATURE INSIDE DOMAIN, -VE FOR CONCAVE), THE NUMBER OF 


! F 


{LEM 


r 


NTS IN THE SEGMENT, AND 


py 


ENGTH RATIO BETWEEN SUCCESSIVE 


TH 
INTS IN THE DIRECTION OF NUMBERING. 


| F 


{LEM 


= 


ISEGMAX=NSEGTOT 


ISEGMIN=I SEGMAX-NSEGB (IBOUND) +1 


Each segment in turn: DO ISEG=ISEGMIN, ISEGMAX 


READ (5,*) RSEG, NELSEG, RATSEG 


DO YOU WANT TO KNOW: 


What your staff really want? 


The top issues troubling them? 


How to make staff assessments 
work for you & them, painlessly? 
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top staff 
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63 


FIND AN 


FIRST AND LAST NO 
ILAST (ISEG) 


IF 


IRS 


E (6, 63) 


T (ISEG) 


COORDINATES OF T 


Is 
XF 
YF 


ER OF 


PB (IBO 


NNP > 


"NNP =",16,2X,"0 


DI 


P-NELS 


HE FIRST 


END 


=I8 


EG-IS 


EGMIN+1 


IRS 


IRS 


T=XS 


Is 


END ( 


END) 


T=YSEND ( 


ISEND) 


COORDINATES OF T 


Is 


IF (ISEG 


Xx 
Y 


END 


END+1 


LAST=XSE 
LAST=YSE 


=I8 


Is 


HE 


LAST 


= 


EGMAX) IS 


D (I 


SEND) 


S 


D (I 


ENT 


END) 


HEN 


EFINE 


HE EL 


BME 


NT 


Bs 


elemen 


IEEND 


TRE 


E. abn: turn: 


HL. 


ND) =ISEG 
i) 


EN 
E 
E 


FF 


(END) =XFI 


BF 


IND) =YFI 


HI 


EN 
F 
Ei 


2 
iw) 
= 


#X1s 
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NNP,MAXNNE 


ES ON CURR 


DO M=1,N 


RST+ (X] 
RST+ (Y1 


-RATS 


EG 


ENTS SO FAR. 


UTSIDE 


ERMITT 


ENT S 


EGM 


EG+1 


ENT. 


END POINT OF THE 


EGM 


END POINT OF TH 


DATA FOR A STRAIGHT S 


zr 


EGM 


EGM 


ENT. 


IND POINT COORDINATES 


ELS 


RST+ (XLAST-XFI 


LAST-XFIRST) *F 
LAST-YFIRST) *F 


EG 


ED RANGE 


ENT. 


r 


ENT. 
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1 TO",16) 


ON THE 


EGM 


ENT. 


EG**N 


ELS 


EG) 
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LOAT (M 
LOAT (M 


)/F 
)/F 


RST) * (1.-RATSEG 


OAT (NELSEG) 


,OAT (NELSEG) 


* *M) 
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YEEND (IEEND) =YFIRST+ (YLAST-YFIRST) * (1.-RATSEG**M) 
& / (1.-RATSEG* *NELSEG) 
END IF 


END DO Each element in turn 


zr 


! GENERATE ELEMENT DATA FOR A SEGMENT IN THE FORM OF A CIRCULAR ARC. 
IF(RSEG /= 0.) THEN 


! LOCATE THE CENTRE OF THE ARC. 


x 
Ss 
4 
0 
ll 


(XFIRST+XLAST) /2. 


YMID=(YFIRST+YLAST) /2. 
ALSEG=SOQRT ( (XLAST-XFIRST) **2+ (YLAST-YFIRST) **2) 


D> 
‘U 
bal 


ERP2=RSEG* *2- (ALSEG/2.) **2 


IF (ABS (ALPERP2) < 1.E-6*RSEG**2) ALPERP2=0. 


IF(ALPERP2 < -1.E-6*RSEG**2) THEN 


WRITE(6,64) ISEG 


64 FORMAT (/ "DATA ERROR FOR SEGMENT NUMBER",16, 
& / “NOT POSSIBLE TO CREATE A CIRCULAR ARC") 
STOP 
END IF 


ALPERP=SQORT (ALPERP2) 


UVF LX= (XLAST-XFIRST) /ALSEG 


UVFLY= (YLAST-YFIRST) /ALSEG 


FACT=1. 
IF(RSEG < 0.) FACT=-1. 


XCENT=XMID-ALPERP*UVFLY* FACT 


YCENT=YMID+ALPERP*UVFLX* FACT 


! FIND THE ANGLE SUBTENDED THERE BY THE SEGMENT. 


IF(ALPERP /= 0.) ANGSEG=2.*ATAN (ALSEG*0.5/ALP 


Gl 


RP) 


IF (ALPERP == 0.) ANGSEG=PI 


! DEFINE THE ELEMENT END POINT COORDINATES ON THE SEGMENT. 


ANGFIR=ATAN2 (YFIRST-YCENT, XFIRST-XCENT) 


Each element in turn: DO M=1,NELSEG 


TEEND=IEEND+1 


ISEGEND (IEEND) =ISEG 


.) ANG=ANGSEG* FLOAT (M) /FLOAT (NELSEG) 


.) ANG=ANGSEG* (1.-RATSEG**M) / (1. -RATSEG* *NELSEG) 


Tr. 
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IF(RSEG < 0.) ANG=-ANG 
XEEND (TEEND) =XCENT+ABS (RSEG) *COS (ANGFIR+ANG) 
YEEND (IEEND) =YCENT+ABS (RSEG) *SIN (ANGFIR+ANG) 
END DO Bach element in turn 

END IF 

| 

END DO Bach segment in turn 

END DO Bach boundary in turn 

NEEND=IEEND 

NEL=NNP 


! GENERATE THE ELEMENT POINT DATA AND TH 


MMIN=1 
IEP1=0 
IEP2=1 


DO I 


Each boundary in turn: 


gaite\ 


Challenge the way 


EXPERIENCE THE POWER © 
FULL ENGAGEMENT... 


RUN FASTER. 
RUN LONGER.. [ 
RUN EASIER... 


— 
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E NODAL POINT COORDINATES. 


BOUND=1, NBOUND 


MMAX=MMIN+NNPB (IBOUND) -1 

Each element on current boundary: DO M=MMIN, MMAX 
TEP1=IEP1+1 

TEP2=IEP2+1 
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! ALS 


EP2 (M 


)=1 
(M) =0.5* (X 
(M)=0.5* (Y 


EL 


Constant Boundary Element Program for Potential Problems 


zr 


‘END (IEP1) 


+XE 


END (I 


EP2) ) 


EEND (IEP1) 


+YE 


END (I 


EP2) ) 


EM (M) =IS 


py 


DO 


GEND (IEP2) 


MIN=MMAX+1 


IE 


P1+1 


M 
IEF 
I 


IE 


P2+1 


D AND 


STORE THE 


COMPONENTS OF THE 


O THE 


ELEM 


ENT L 


ENGTHS. 


Each node in turn: 


E.P1=NE 


P1 (I) 


'P2 (I) 


EP2) 


-X 


r 


(END (I 


EP2) 


E 


-YEEND (I 


UNX (I) /D 


(I) =SQRT 


Each nod 


ET 


ERMINE 


THE 


eal 


R 


eal 


DIST=SO 
IF (DIST 
ND DO 
END DO 


ND SUBROUTINE 


MAXL=0. 
Each node in turn: 


Each other node in 


> MAXL) 


ETURN 


UNY (I) /D 


MAX IMUM 


RT ( (XNODE (T) 


Each node in t 


[ee] 


NOM 


Gl 


NOM 


e in turn 


DIM 


Curn: 


MAXL= 


urn 


< 


E SHC 
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DIST 


D DO Bach boundary in turn 


DO I=1,NNP 


EP1) 
EP1) 


DENOM=SORT (UNX (I) **2+UNY (I) **2) 


(EVX* *2+EVY**2) 


DO I=1,NNP 


Each element on current bo 


r 


ENSION OF THE 


undary 


UNIT OUTWARD NORMALS AT THE 


NODE 


zr 


SOLUTION DOMAIN. 


DO J=1,NNP 


Each other node in turn 


82 


-XNODE (J) ) **2+ (YNODI 


GI 


(I) -YNODE (J) ) **2) 


The number of boundaries is first read into NBOUND. If there is more than one boundary, the order 
of numbering them is arbitrary. Then, for each boundary in turn, the number of segments forming the 
boundary is read into NSEGB, followed by the global co-ordinates of the segment end points (taken 
consecutively) into XSEND and YSEND. The starting point for defining segments on the boundary is 
arbitrary, but then the order of numbering must be such as to keep the domain on the left: anticlockwise 
for the outer boundary surrounding the domain, clockwise for a boundary defining a hole in the domain. 
Note that the first end point, which is an end of both the first and last segment, must only be defined 
once: the number of end points on a boundary is equal to the number of segments, and the program 


makes the connection to close the boundary. 


Then, for each segment of the current boundary in turn, its radius of curvature, the number of elements 
on the segment, and the ratio between the lengths of successive elements on the segment are read into 
RSEG, NELSEG and RATSEG, respectively. A zero value of RSEG indicates a straight segment, while the 
sign of a non-zero value of RSEG indicates whether the part of the boundary defined by the segment is 
convex or concave. A positive radius indicates convex, with the centre of curvature inside the domain, 
while a negative value indicates concave, with the centre outside the domain. A unit value of RATSEG 
indicates a uniform distribution of elements along the segment, whether it be straight or curved. A value 
greater than one requires the lengths of successive elements to increase in the direction of segment end 


numbering, a value less than one requires a similar decrease. 


The subprogram uses a number of housekeeping variables to keep track of various totals: IEEND stores 
the current element end point number, array NNPB the number of nodal points (or elements) on each 
boundary, and NNP the overall total number of nodal points. Similarly, ISEEGMIN and ISEGMAX store the 
numbers of the first and last segments on the current boundary (the segment numbering runs sequentially 
from one boundary to the next), while IFIRST and ILAST do the same for nodes (elements) on the 
current segment. Note that wherever possible tests are applied (and warning messages given) to check 
that array dimensions are not going to be exceeded. It is also worth noting that arrays concerned with 
segments are given the same dimensions (1000, in module SHAREDDATA2PC) as those for elements. 
This is to give the user the freedom to define the geometry and boundary condition of each element 
individually, by making each segment contain only one element. Two arrays, XEEND and YEEND 
(element end point co-oordinates) are actually given dimensions of 1010. This is because due to the way 
element end point co-ordinates are defined it is convenient to have the last point on a boundary distinct 
from the first point, whose co-ordinates it shares. This means that the number of element end points 


on a boundary is one more than the number of elements, and there could be as many as 10 boundaries. 
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The subprogram stores the co-ordinates of the first and last element end points on the current segment and 
then defines the element end point co-ordinates, storing in XEEND and YEEND. Note that the segment 
number associated with a particular element end point is stored temporarily in array ISEGEND. Once 
the element data have been generated this information is transferred from ISEGEND to ISEGELEM, 
the segment number associated with each element. This information will be required later in the final 
output of results, when the segment number for each element is required for calculating potential flows 


across the various segments. 


For a straight segment, simple linear interpolation is applied to define the element end points. If x, and 
X2 (XFIRST and XLAST) are the x global co-ordinates of the first and last segment end points, m (M) is 
the element counter (from 1 to the number of elements on the segment) and n, (NELSEG) is the number 


of elements on the segment, then the x co-ordinate of the second end of the mth element is given by 
x=xX,+ ™ (x2 — x4) (3.1) 


and similarly for the co-ordinate. The position of the first end point on the segment has already been 
defined as that of the last point of the previous segment, except for the first end point on each boundary, 
which was defined initially for the boundary. If the distribution of element end points along the segment 
is not uniform, but has a constant ratio § between the lengths of successive elements (RATSEG in the 
subprogram), then a different formula is required. Let x* be the component in the direction of the x 


length of the first element, then 

te = hy = "1 + S487 4+ S34 css + 57s~1) (3.2) 
Multiply through by S$ 

SG =H HAG FS? 4S? EST ics + §"s) 
and subtracting 

(1 — S) (2 — 4) = x" — Ss) (3.3) 


from which 


ee (1-S)(*2-%1) 


ee (3.4) 
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The x co-ordinate of the second end of the m th element is given by 


24.63 1 Ce ae 
aay ae ES Se iis £5") = Ga — HG 


da-s™) 
(1— S™s) 


xX =X, + (X%2 — X41) (3.5) 


and similarly for the y co-ordinate. In the limit as S > 1, Equation 3.5 reduces to 3.1. 


(X.Y) 


Figure 3.1 Geometry of a boundary segment in the form of a circular arc 


The same formulae are applied in the case of a segment in the form of a circular arc, but to angles 
subtended at the centre of curvature rather than to lengths between element end points. Given that the 
input data provide only the co-ordinates of the end points of a segment and its radius of curvature, the 
location of the centre of curvature requires some care. Figure 3.1 shows a boundary segment with end 
points A, and A, with co-ordinates (x;,y,) and (x2, y2), respectively, and radius of curvature R (the 
centre is within the domain when R is positive). The midpoint of the straight line joining the end points 
is M, at (Xm, Vm) or (XMID, YMID) in terms of program variables, where 


1 1 
Xm =F (X1 + X2) and Ym = - (1 + Y2) (3.6) 


The length of the line joining the end points is L (ALSEG) 


L =V[(xq — x1)? + (2 — 17] (3.7) 
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If the centre of curvature is C, at (x,,¥) or (KCENT, YCENT), and the length of the perpendicular 
from C to the line A,A, at M is h (ALPERP) then 

h? = R? - (2) (3.8) 
Before taking the square root to find h, it is necessary to test that the expression for h? (ALPERP2) is 
either positive or zero. A negative value would imply that the distance apart of the end points exceeds 
twice the radius of curvature: either the points are too far apart or the radius of curvature is too small. It 
is then not possible to create a circular arc. The particular case of h* = 0 deserves some care, because it 
corresponds to the case of centre C at point M, giving a semi-circular segment, which can often occur in 
practice. Because floating point arithmetic cannot be carried out with perfect precision, the test applied 
in the program is h* < 10~°R?. If satisfied, h* is assumed to be zero and the segment is treated as a 
semi circle. The program does not accommodate circular arc segments whose subtended angles exceed 
180°, because more information would be required to detect them. An attempt to enter data for such a 
segment would result in a segment with an angle less than 180°, which could be identified by inspecting 


the mesh data output. 


THs @DOOK ts propucep with Wext® 
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The position of the centre of curvature is found by first defining the unit vector in the direction from 


point A, and to point A, 


(x2-%1) Wai) 
L 


D=0,i+ 0,j where 0, = and 0, 


The unit vector perpendicular to this towards C is 


nA s na 


ai= —tyit vj (3.9) 


and would be the negative of this if R is negative, implying that C is outside the domain. The co-ordinates 
of C (XCENT, YCENT) are therefore 


X= Xm—hdy Veo = Vm +hd, (3.10) 


Let 6 be the angular polar co-ordinate centred at point C in Figure 3.1, measured from the line CA,. The 


angular position 6, (ANGFIR) of CA, (to the first segment end point) relative to the x axis is given by 


tang, = Y1) (3.11) 


(x1-x¢) 


and the angular extent of the segment, A@ (ANGSEG), by 


tan (=) == (3.12) 


If the elements on the segment are of uniform size, the angular co-ordinate of the second end of the 


mth element is 
0 = “A@ (3.13) 


If the lengths of the elements increase by a constant ratio S (RATSEG), the angular co-ordinate of the 


second end of the mth element is 


9 = = (3.14) 
In either case, the corresponding global coordinates are 

x =x,4+|R| cos(@, + @) (3.15) 

y = yc + |R| sin + 4) (3.16) 
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Given all the element end point data for all the boundaries, the subprogram then goes on to define the 
nodes as the midpoints of the straight lines between the ends of the elements and stores the nodal co- 
ordinates in XNODE and YNODE. The numbers of the corresponding first and second end points are 
stored in NEP1 and NEP2. Then the element lengths (ELENGTH) are computed, and the components 
of the unit outward normals (UNX and UNY) are found. Finally, the maximum dimension (MAXL) of 
the solution domain is found as the maximum distance between any pair of nodal points, for subsequent 


use in scaling as described in Section 2.6. 


3.1.4 Mesh data output subprogram 


The subprogram MSHOUT serves to write out the geometric data for the mesh to file MESHRES. 
Following the number of elements, number of nodes, and number of element ends, the numbers and 
co-ordinates of the end points are written out, two sets to a line. Then the element numbers, end point 


numbers, nodal co-ordinates and components of the unit outward normals to the elements are written out. 


E 


SUBROUTINE MSHOUT 


! SUBPROGRAM TO WRITE OUT THE MESH DATA. 


USE SHAREDDATA2PC 


! OUTPUT THE NUMBE 


7) 
n 
oO 
Hy 


ELEMENTS AND NODES, ALSO THE 


r 
[= 
4 


EMENT END 


! POINT COORDINATE DATA. 


WRITE (7,71) NEL,NNP,NEEND, 


= 
z 


& (IEEND, XEEND (IEEND) , YEEND (I 


END) , I 
71  FORMAT(/ "GEOMETRIC DATA FOR THE MESH" // 


‘-END=1, NEEND) 


&  10X,"NUMBER OF ELEMENTS =",16 // 


& 10X, "NUMBER OF NODAL POINTS =",16 // 


r. 


&  10X,"NUMBER OF ELEMENT END POINTS =",16 // 


& "COORDINATES OF ELEMENT END POINTS" // 
& 2(" I x Y my / 
& 2(16,2E12.4)) 
| 
! OUTPUT THE ELEMENT END POINT NUMBERS, NODAL COORDINATES AND 


r. 


! COMPONENTS OF THE UNIT OUTWARD NORMALS AT THE NODES. 


WRITE (7,72) (M,NEP1(M),NEP2(M) ,XNODE(M) , YNODE (M) ,UNX(M), 


& UNY (M) ,M=1, NEL) 

72 FORMAT (/ "ELEMENT END POINT NUMBERS, NODAL COORDINATES", 
& " AND UNIT NORMAL COMPONENTS" // 
& (" M NEP1 NEP2 X (NODE) Y(NODE)", 
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& " UNX UNY") / (316,4E12.4)) 


Gl 
nN 


! SCALE THE ELEMENT END POINT AND NODAL POINT COORDINAT 


69 


-END=1, NEEND 


Each element end point in turn: DO I 


EEND (IEEND) =XEEND (I 


r 


/END) /MAXL 


Xx 
YEEND (IEEND) =YEEND (IEEND) /MAXL 
E 


ND DO Each element end point in turn 


Each node in turn: DO I=1,NNP 
XNODE (1) =XNODE (I) /MAXL 
Y 


NODE (1) =YNODE (I) /MAXL 


DO Each node in turn 


ea 
A 
iw) 


RETURN 


END SUBROUTINE MSHOUT 


Finally, the co-ordinates of the element end points and nodes are scaled using the maximum dimension 


of the domain. 
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3.1.5 Subprogram for applying the boundary conditions 


The subprogram BCS serves to apply boundary conditions of either the prescribed potential, prescribed 
potential gradient, or mixed (linear relationship between potential and potential gradient) types. As 
already indicated, it is assumed that each segment of elements has a uniform boundary condition applied 
to it, which is an important consideration when defining the segments. The total numbers of segments 
subject to the three types of condition are first read into variables NBCP, NBCD and NBC, respectively. 
In the case of prescribed normal derivatives (gradients) it is only necessary to include those segments 
subject to non-zero gradients. Storage arrays including ALPHA and BETA for the mixed boundary 
condition are set to zero for each nodal point. Array IBC stores the type of boundary condition (1, 2 or 
3 for three types) for each node. In the absence of other information, the condition at a node is assumed 
to be zero potential gradient. This is perhaps the most common single condition encountered in practice, 
for example on a line of symmetry, a thermally insulated boundary in a heat conduction problem, or an 
impermeable boundary in a fluid mechanics problem. The default boundary condition type is therefore 


set as 2, with the corresponding zero value of gradient being stored in array STORE. 


SUBROUTIN 


Gl 


BCS 


! SUBPROGRAM TO INPUT, PROCESS AND OUTPUT TH 


Gl 


BOUNDARY CONDITIONS. 


fe 
nN 
n 
ae 
> 
ve) 


‘DDATA2 PC 


Tr. 


r 


! INPUT THE NUMBERS OF SEGMENTS SUBJECT TO EACH TYPE OF BOUNDARY 


! CONDITION. 


! NBCP - PRESCRIBED POTENTIAL. 


! NBCD - NON-ZERO PRESCRIBED NORMAL DERIVATIVE OF POTENTIAL. 


Tr. 


! NBCM - MIXED BOUNDARY CONDITION. 


! ANY SEGMENT NOT INCLUDED IS ASSUMED TO BE SUBJECT TO A ZE 


ial 
es 
[e) 


! NORMAL DERIVATIVE OF POTENTIAL. 


E 


READ(5,*) NBCP,NBCD,NBCM 


! TEST THESE BOUNDARY CONDITION NUMB 


Gl 


RS. 


NBCT=NBCP+NBCD+NBCM 


IF(NBCP < 0 .OR. NBCP > MAXNNP .OR. NBCD < 0 .OR. NBCD > MAXNNP 


& -OR. NBCM < 0 .OR. NBCM > MAXNNP .OR. NBCT < 0 .OR. 


& NBCT > MAXNNP) THEN 


WRITE (6,61) NBCP,NBCD,NBCM, NBCT, MAXNNP 


61 FORMAT (/ "NBCP =",16,3X,"NBCD =",16,3X,"NBCM =",16 


& / “NBCT =",16,3X,"OUTSIDE PERMITTED RANGE 0 TO",1I6) 


STOP 
Download frepyeBgoks at bookboon.com 
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! INITIALISE THE BOUNDARY CONDITION STORAGE ARRAYS. 


r 


Each node in turn: DO I=1,NNP 


END DO Each node in turn 


! INPUT, STORE AND OUTPUT THE PRESCRIBED POTENTIAL BOUNDARY CONDITIONS. 


IF(NBCP > 0) THEN 


READ (5,*) (ISEGBC (IBCP) , PSISEG(IBCP) , IBCP=1, NBCP) 
WRITE (6, 62) 


62 FORMAT (/ "PRESCRIBED POTENTIAL BOUNDARY CONDITIONS") 


Bach segment with prescribed potential: DO IBCP=1,NBCP 


ISEG=ISEGBC (IBCP) 


IF(ISEG < 1 .OR. ISEG > NSEGTOT) TH 


ia 
Z 


WRITE (6,63) ISEG,NSEGTOT 


63 FORMAT (/ "ISEG = ",16,2X,"OUTSIDE 


tu 


ERMITTED RANGE 1 TO",1I6) 


Each node on current segment: DO I=IFIRST(ISEG) , ILAST (ISEG) 
BC (I) =1 


I 
STORE (I) =PSISEG(IBCP) 


END DO Each node on current segment 


WRITE (6,64) PSISEG(IBCP), IFIRST (ISEG) , ILAST (ISEG) 
E 


64 


ORMAT(/ "POTENTIAL =",E12.4,5X,"AT NODES ",16,5X,"TO ",I6) 


END DO Bach segment with prescribed potential 


ea 
z 
iw) 
H 
{ 


! INPUT, STORE AND OUTPUT THE PRESCRIBED POTENTIAL GRADIENT BOUNDARY 


! CONDITIONS. 
IF(NBCD > 0) THEN 


READ (5,*) (ISEGBC (IBCD) , DPSISEG(IBCD) , IBCD=1,NBCD) 
RITE (6,65) 


= 


65 FORMAT (/ "PRESCRIBED POTENTIAL GRADIENT BOUNDARY CONDITIONS") 


Bach segment with prescribed potential gradient: DO IBCD=1,NBCD 


ISEG=ISEGBC (IBCD) 


IF(ISEG < 1 .OR. ISEG > NSEGTOT) THEN 
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WRITE (6,63) ISEG,NSEGTOT 


STOP 
END IF 


Each node on current segment: DO I=IFIRST(ISEG) , ILAST (ISEG) 


IBC (I) =2 


STORE (I) =DPSISEG(IBCD) 


END DO Each node on current segment 


WRITE (6,66) DPSISEG(IBCD) ,IFIRST(ISEG) , ILAST (ISEG) 


66 FORMAT (/ "GRADIENT =",E12.4,5X,"AT NODES ",16,5X,"TO ",I6) 


END DO Each segment with prescribed potential gradient 


ta 
Fa 
is) 
4 
| 


! INPUT, STORE AND OUTPUT THE MIXED BOUNDARY CONDITIONS. 


! ASSUMED FORM - DPSI=ALPHA*PSI+BETA. 


IF(NBCM > 0) THEN 


READ (5, *) (ISEGBC (IBCM) , ALPHASEG (IBCM) , BETASEG (IBCM) , IBCM=1, NBCM) 


WRITE (6, 67) 


67 FORMAT (/ "PRESCRIBED MIXED BOUNDARY CONDITIONS") 


Each segment with prescribed mixed condition: DO IBCM=1,NBCM 


ISEG=ISEGBC (IBCM) 


‘aM UID. EL0ZO 


z= 
= 
= 
Ga 

a 

G 

2 

a 
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rropiems 


IF(ISEG < 1 .OR. ISEG > NSEGTOT) THEN 


WRITE (6,63) ISEG,NSEGTOT 


END IF 


Each node on current segment: DO I=IFIRST(ISEG) , ILAST (ISEG) 


I 
ALPHA (I) =ALPHASEG (IBCM) 
B 


ETA (I) =BETASEG (IBCM) 


END DO Each node on current segment 


WRITE (6, 68) ALPHASEG (IBCM) , BETASEG (IBCM) , IFIRST (ISEG) , ILAST (ISEG) 
68 FORMAT (/ “ALPHA =",E12.4,5X,"BETA =",E12.4,5X, 
& "AT NODES ",16,5X,"TO ",I6) 


END DO Each segment with prescribed mixed condition 


! ASSEMBLE THE VECTOR OF KNOWN VARIABLES, SCALING ANY PRESCRIBED 


Q 
fs 
iw) 
zs 
al 


NTS. 


Each node in turn: DO I=1,NNP 


IF(IBC(I) == 1) DPSI(1I)=STORE (T) 
IF(IBC(I) == 2) DPSI(1I)=STORE (I) *MAXL 
IF(IBC(I) == 3) DPSI(1I)=BETA(I) *MAXL 


eal 


ND DO Bach node in turn 


RETURN 


END SUBROUTIN 


Gl 


BCS 


For each segment over which potential is prescribed, the segment number and value of potential are 
read into ISEGBC and PSISEG, respectively. Taking each of these segments in turn, the nodes have their 
boundary condition type set to 1 (in array IBC), and the value of potential is transferred temporarily 
to array STORE. The prescribed potential and numbers of the nodes (elements) to which it is applied 


are then written out. 


For each segment over which potential gradient is prescribed, the segment number and value of potential 
gradient are read into ISEGBC and DPSISEG, respectively. Taking each of these segments in turn, the 
nodes have their boundary condition type set to 2 (in array IBC), and the value of potential gradient is 
transferred temporarily to array STORE. The prescribed potential gradient and numbers of the nodes 


(elements) to which it is applied are then written out. 
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For each segment over which mixed boundary conditions prescribed, the segment number and values of 
the constants @ and £ (in Equation 2.32) are read into ISEGBC, ALPHASEG and BETASEG, respectively. 
Taking each of these segments in turn, the nodes have their boundary condition type set to 3 (in array 
IBC), and the values of boundary condition constants are transferred to arrays ALPHA and BETA. The 
constants and numbers of the nodes (elements) to which the mixed boundary condition is applied are 


then written out. 


Finally, for each node in turn, the array DPSI is made to contain the known variable values: according 
to Equation 2.30 this is typically potential gradient (hence the use of array DPSI). In the more general 
form of Equation 2.31, however, it is either potential or potential gradient according to the boundary 
conditions. If potential is prescribed its value is transferred to DPSI from STORE. If potential gradient 
is prescribed, its value is similarly transferred from STORE and multiplied by MAXL, the maximum 
domain dimension. While mesh dimensions have already been scaled, gradient values have not. Potential 
is not affected by scaling because it does not involve dimensions of length. Potential gradients have the 
dimension of potential divided by length, so in order to scale must be multiplied by the length scale. 
If a mixed boundary condition is prescribed, the (unscaled) value of is transferred from STORE and 
multiplied by MAXL as the known variable (potential gradient) contribution, as described in connection 
with Equation 2.32. 


3.1.6 Subprogram for Poisson type problems 


In subprogram POISSON the particular integral contributions to potentials and potential gradients at 
the nodes are first set to zero. If the problem is of the Laplace type (indicated by a zero value of f; in 
Equation 2.1 stored in F1 in the program) control returns to the calling program. If the problem is of the 
Poisson type, then for every node the values of the particular integral potential and potential gradient 
defined by Equations 2.108 and 2.109, in co-ordinates (XX and YY) which have their origin at the 
point (XC, YC), are computed and stored in arrays PSIPI and DPSIPI. Note that the particular integral 
is defined in terms of scaled variables, so that the co-ordinates of the origin are first divided by MAXL, 
and f, is multiplied by the square of this length. From Equation 2.1, f; must have the dimensions of 


potential divided by length squared, because it is equated to second derivatives of potential. 


SUBROUTINE POISSON 


! MODIFY BOUNDARY CONDITIONS IF GOVERNING EQUATION IS POISSON TYPE. 


USE SHAREDDATA2PC 


! INITIALISE THE PARTICULAR INTEGRAL ARRAYS. 


Each node in turn: DO I=1,NNP 


PSIPI(1I)=0. 
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DPSIPI(I)=0. 


END DO Each node in turn 


IF(F1l == 0.) RETURN 


! FIND AND STORE THE POTENTIAL AND POTENTIAL GRADIENT AT EVERY NODE 
! DUI 


Gl 


TO THE PARTICULAR INTEGRAL. 


XC=XC/MAXL 
YC=YC/MAXL 


F1=F1*MAXL**2 


Each node in turn: DO I=1,NNP 
XX=XNOD 


Gl 


(I) -XC 


YY=YNOD 


ira 


(I) -YC 
PSIPI(L)=0.25*F1* (XX**24+YY**2) 
DPSIPI(1I)=0.5*F1* (XX*UNX (I) +YY*UNY (T) ) 


END DO Each node in turn 


! SUBTRACT THE PARTICULAR INTEGRAL CONTRIBUTIONS FROM TH 


zr 


PRESCRIBE 


=) 


! BOUNDARY CONDITIONS. 


Each node in turn: DO I=1,NNP 
IF(IBC(I) == 1) DPSI(I)=DPSI(1I)-PSIPI (I) 
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IF(IBC(I) == 2) DPSI(I)=DPSI(1I)-DPSIPI (I) 
IF(IBC(I) == 3) DPSI(1I)=DPSI(1I)-DPSIPI(1I)+ALPHA(I) *PSIPI (I) *MAXL 


END DO Each node in turn 


RETURN 


END SUBROUTINE POISSON 


Then for each node, the scaled particular integral contribution is subtracted from the scaled known 
variable. In other words, for a type 1 boundary condition (prescribed potential) the potential due to the 
particular integral (Equation 2.108) is subtracted from the scaled potential defined by the actual boundary 
condition, which is already stored in the array DPSI. For a type 2 boundary condition (prescribed 
potential gradient) the potential gradient due to the particular integral (Equation 2.109) is subtracted 
from the (scaled) potential gradient defined by the actual boundary condition, which is already stored 
in the array DPSI. 


The type 3 (mixed) boundary condition is a little more complicated. From Equation 2.103, the required 
solution to the Poisson equation, which can be represented by the “total” potential pr to avoid confusion, 


is the solution to the Laplace form of the problem (with f,; = 0 ) plus the particular integral 


wr =v, + wp, (3.17) 


a relationship which is independent of scaling. Similarly, for potential gradient 


Gar = | a es (3.18) 


which applies to either all scaled or all unscaled gradients. The mixed boundary condition expressed by 


Equation 2.32 in terms of unscaled variables is 


a 
(H) =apr+B (3.19) 
Applying scaling, and using * to indicate scaled quantities 


(34) =1 (2), = Lewr +8) (3.20) 


T 


where L is the maximum domain dimension (MAXL). Using Equations 3.17 and 3.18 


(Fr), = Gan), Gy = Hehe +m +01~ (5p), 


(4), = Law, + Layp, + LB — (4) (3.21) 
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So in the program, which is solving the corresponding scaled Laplace problem, to the array DPSI (known 
variables) which already contains Lf (from subprogram BCS) must be added Lawp; and subtracted the 
particular integral potential gradient (which is already scaled). The Law, contains the as yet unknown 


potential and has to be taken to the left hand side of the equations. 


3.1.7 Subprogram to form the coefficient matrix 


Subprogram FRMTRX forms the coefficient matrix and right hand side vector of Equations 2.31, and 
stores them as an extended matrix in array A. The extended matrix is simply [A*] with an extra column 
to contain vector [b]. Each node in turn is treated as point P, the source point for the fundamental 
solution. Then each element in turn is taken as the element over which integration is being carried out, 
and therefore containing the field point Q. Node counters I and J are used for P and the element node, 
respectively, so that I is the equation counter and numbers rows in [A*], while J numbers columns. If 
I and J are not the same number, then P is not in the element containing Q. Subprogram KERNEL is 
called to compute the integrals of the kernel functions to give coefficients Aj; and Bj (AIJ and BIJ in 
program variables). On the other hand, if I and J are the same, then P and Q are in the same element 
and A;; takes the value 7 according to Equation 2.45. Subprogram KERN2 is called to compute the 


integral of the second kernel function to find coefficient B;;. 


23 


SUBROUTINE FRMTRX 


! SUBPROGRAM TO FORM THE COEFFICIENT MATRIX AND RIGHT HAND SIDE 


< 


ECTOR, 


! MODIFIED TO SUIT THE BOUNDARY CONDITIONS. 


= 


USE SHAREDDATA2PC 


EXTENDED COEFFICIENT MATRIX A. 


! DEFINE THE NUMBER OF COLUMNS IN TH 


r. 


! FORM THE COEFFICIENT MATRIX A, AND THE RIGHT HAND SIDE VECTOR B*DPSI. 


a 


< 


Take each node in turn as P: DO I=1,NNP 
BDPSI=0. 


Take each element in turn to contain Q: DO J=1,NNP 


= 
t= 
4 


! EVALUATE THE KERNELS WH 


zr 


IN P IS NOT IN THE EMENT CONTAINING Q. 


IF(I /= J) CALL KERNEL(I,J,AIJ,BIJ) 


! EVALUATE THE KERNELS WHEN P IS IN THE ELEMENT CONTAINING Q. 
IF(I == J) THEN 
AIJ=PI 


CALL KERN2(J,BIJ) 


Download ffé@eBdoks at bookboon.com 


Boundary Element Methods for Engineers: 
Part I: Potential Problems Constant Boundary Element Program for Potential Problems 


! IF POTENTIAL IS PRESCRIBED OVER THE ELEMENT CONTAINING Q, 


! INTERCHANGE THE A AND B COEFFICIENTS. 


IF(IBC(J) == 1) THEN 


TEMP=AIJ 
AIJ=-BIJd 


BIJ=-TEMP 


a 
Z 


D IF 


el 
oO 
~ 


! IF THE BOUNDARY CONDITION OVER THE ELEMENT CONTAINING Q IS MIX 


! MODIFY THE A COEFFICIENT. 


IF(IBC(J) == 3) AIJ=AIJ-BIJ*ALPHA (J) *MAXL 


E B*DPSI VECTOR COEFFICIENT. 


! STORE THE A COEFFICIENT AND ACCUMULATE T 


A(1I,J)=AIJd 


BDPSI=BDPSI+BIJ*DPSI (J) 


ND DO Take each element in turn to contain Q 


eal 


! STORE THE B*DPSI COEFFICIENT AS AN EXTENSION OF MATRIX A. 


A(I,JMAX) =BDPSI 


‘aM UID. EL0ZO 
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= 
= 
Ga 
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END DO Take each node in turn as P 


RETURN 


END SUBROUTINE FRMTRX 


If the boundary condition over a particular element is of type 1 the potential there is prescribed, and 
therefore known. The Aj; wp; term in the equations must be moved from the left hand side of the equations 
to the right hand side, while the Bj on) term must be moved in the opposite direction. These changes 
are effected by interchanging the A,; and Bj; coefficients, and the vector of known quantities stored in array 
DPSI already contains the prescribed value of potential from subprogram BCS. If the boundary condition 
over a particular element is of type 2 the potential gradient there is prescribed, and therefore known, 


and no changes are required: DPSI already contains the scaled prescribed value of potential gradient. 


If the boundary condition over a particular element is of type 3 then there is a linear relationship between 
potential and potential gradient as in Equation 2.32. BDPSI already contains the scaled prescribed value 
of the constant #. Because the potential is unknown the scaled By aw; term (from Bj (ay, + B)) 
in the equations must be moved from the right hand side to the left hand side, which is achieved by 
subtracting the scaled B;;a@ from the corresponding coefficient in the [A] matrix, contributing to its 
modified form [A*]. 


Finally for each equation, the product of Bj; and the relevant known quantity is accumulated in the 
variable BDSI (part of the [B*][y] = [b] operation required by Equations 2.31) and when complete is 


stored as the final column of array A. 


3.1.8 Subprogram for computing integrals of the kernel functions when P is not in the element 
containing Q 


Subprogram KERNEL implements the formulae derived in Section 2.4.1, first computing the distances 
from point to the ends of the element containing node Q. Because the same subprogram is later used 
when P is a point within the solution domain there is a test for whether by mistake P coincides with 
one of the ends, which would lead to an unacceptable division by zero. The integral of the first kernel 


function, A;;, (Equation 2.36) is computed according to Equation 2.39 and stored in AJJ, and the integral 


ip? 
of the second kernel, B,;, according to Equation 2.41 and stored in BIJ. 


SUBROUTINE KERNEL(I,J,AIJ,BIJ) 


! SUBPROGRAM TO EVALUATE THE INTEGRALS OF THE KERNEL FUNCTIONS 


! WHEN P IS NOT IN THE ELEMENT CONTAINING Q. 


USE SHAREDDATA2PC 
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! FIND THE COMPONENTS OF THE RADIAL DISTANCES OF P FROM THE ENDS 


! OF THE ELEMENT CONTAINING Q, AND THE DISTANCES THEMSELVES. 


Bs 


IEP1=NEP1 (J) 


IEP2=NEP2 (J) 


w 
ray 
ir 
x 


‘END (IEP1) -XNODE (1) 


D (IEP2) -XNODE (I) 


N 
R1Y=YEEND (IEP1) -YNODE (T) 
ND (IEP2) -YNODE (T) 


R1=SQRT (R1X**2+R1Y**2) 


R2=SOQRT (R2X**2+R2Y**2) 
IF(R1 < 1.E-6 .OR. R2 < 1.E-6) THEN 


61 FORMAT (/ "ERROR - INTERNAL POINT COINCIDENT WITH AN END", 
& "POINT OF ELEMENT", 16) 
STOP 
END IF 


r 


! FIND THE COMPONENTS OF THE UNIT VECTORS FROM P TO THE ENDS OF 


! THE ELEMENT CONTAINING Q. 


R1X=R1X/R1 
R2X=R2X/R2 
RLY=R1Y/R1 


G GQ GG 


R2Y=R2Y/R2 


r. 


! FIND THE PERPENDICULAR DISTANCE OF P FROM THE ELEMENT CONTAINING Q. 


D=R1X*UNX (J) +R1Y*UNY (J) 


! EVALUATE THE INTEGRALS OF THE KERNELS. 


AIJ=ASIN (URLY*UR2X-UR1X*UR2Y) 


COSTH=UR1X*UR2X+UR1Y*UR2Y 


IF(COSTH < 0. .AND. AIJ > 0.) AIJ=PI-AIJ 


IF(COSTH < 0. .AND. AIJ <= 0.) AIJ=-PI-AIJ 


SINTH1=UNX (J) *UR1LY-UNY (J) *UR1X 


SINTH2=UNX (J) *UR2Y-UNY (J) *UR2X 
BLIM1=R1*SINTH1* (ALOG(1./R1)+1.) 


BLIM2=R2*SINTH2* (ALOG(1./R2) +1.) 
BIJ=BLIM2-BLIM1+D*AIJ 


RETURN 


eal 


ND SUBROUTINE KERNEL 
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Using Equation 2.39 to find A; involves taking an inverse sine to obtain the required difference in angles, 
using function ASIN in the subprogram. But inverse sine is a multi-valued function, and ASIN only gives 
an angle in radians in the range —1/2 to +7/2 Bearing in mind that the magnitude of Aj; is the angle 
between the two lines from P to the ends of the element containing Q, this is normally satisfactory in 
that the angle is usually small, and less than 1/2. There are, however, circumstances where this is no 
longer true and the angle can approach 7. The first is in a narrow domain where a node of the mesh is 
sufficiently close to an element on another part of the boundary for the angle to be greater than 1/2. The 
second is where point P is not a node but an internal point which is again very close to the boundary. 
For example, if the angle associated with a particular combination of point and element is 37/4, the 
inverse sine function would give an incorrect 1/4. The way to test for this situation is via the cosine 
of the angle, which would be negative for an angle greater than 2/2 in magnitude. The cosine can be 


found from the scalar product of vectors 74 and #2 (similar to the vector product in Equation 2.37) 


Py.Po = (Axit Ays). (frit hryj) = 1X 1x costo, — 61) (3.22) 
and cos(@, = 6,) = cos(6, = 62) = Pixtox + Fryfoy' (3.23) 
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If this expression is negative then the value of A;; obtained from the inverse sine function must be 
modified to obtain the correct angle. If the angle Ajj is positive then it must be subtracted from m: for 
example, 1/4 becomes 37/4. On the other hand, if it is negative then it must be subtracted from —z: 
for example,—1/4 becomes —1 —(— 1 /4)= —31/4. These changes are implemented in subprogram 
KERNEL. 


3.1.9 Subprogram for computing the integral of the second kernel function when P is in the 
element containing Q 


Subprogram KERN2 implements the formula derived in Section 2.4.2. The integral of the second kernel 
function, B,j, is computed according to Equation 2.48 and stored in BIJ. Note that the element lengths 
stored in array ELENGTH have to be scaled before use. 


SUBROUTINE 


~ 


ERN2 (J, BIJ) 


! SUBPROGRAM TO EVALUATE THE INTEGRAL OF THE SECOND KERNEL 


23 
[= 
| 


! FUNCTION WHEN P IS IN THE 


EMENT CONTAINING Q. 


USE SHAREDDATA2PC 


! EVALUATE THE SEMI LENGTH OF THE ELEMENT CONTAINING QO. 


R1=0.5*ELENGTH (J) /MAXL 


! HENCE THE INTEGRAL OF THE KERNEL. 


BIJ=2.*R1* (ALOG(1./R1) +1.) 


RETURN 


ERN2 


eal 


ND SUBROUTINE 


~ 


3.1.10 Results output subprogram 


Subprogram OUTPUT organises and writes out the primary results of the computation, but not including 
secondary results such as values of potentials at internal points. Firstly, potentials and potential gradients 
are put back into their proper arrays, and the contributions of the particular integral added to get from 
the solution to the Laplace equation (with modified boundary conditions) which has been solved back 
to the “total” solution to the original problem. If the original problem was of the Laplace type, then the 


contributions from the particular integral potential and gradient are both zero. 


SUBROUTIN 


Gl 


OUTPUT 


! SUBPROGRAM TO WRITE OUT THE NODAL POINT VALUES OF POTENTIAL AND 


r. 
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! POTENTIAL GRADIENT, AND COMPUT 


r 


POTENTIAL FLOWS ACROSS TH 


EA 


! BOUNDARY SEGMENTS. 


s) 


USE SHAREDDATA2PC 


7] 


! ARRANGE FOR PSI AND DPSI TO CONTAIN TH 


r. 


POTENTIALS AND POTENTIAL 


! GRADTI 


Gl 


NTS, RESPECTIVELY. 


Each node in turn: DO I=1,NNP 


IF(IBC(I) == 1) THEN 
TEMP=PSI (T) 
PSI (I) =DPSI (I) 


tel 
Zz 
oO 
H 
i) 


IF(IBC(I) == 3) THEN 
PSITOT=PSI (1) +PSIPI (I) 
DPSI (1) =(ALPHA (I) *PSITOT+BETA (I) ) *MAXL-DPSIPI (T) 


END IF 


a 
a 


D DO Each node in turn 


! ADD CONTRIBUTIONS OF THE PARTICULAR INTEGRAL. 


zr 


= 


WRITE (6, 61) 


61 FORMAT (/ "NODAL POINT POTENTIALS AND POTENTIAL GRADIENTS" // 


& 7 I PSI DPSI wy 


Each node in turn: DO I=1,NNP 
PSIT(I)=PSI (I) 


DPSIT(I)=DPSI (TI) 
IF(Fl /= 0.) TH 


Gl 


N 
PSIT (I) =PSIT (I) +PSIPI(T) 
DPSIT(I)=DPSIT(1I)+DPSIPI (I) 


END IF 


! REMOVE THE SCALE FACTOR FROM THE GRADIENT VALUES. 


DPSIT (I) =DPSIT (I) /MAXL 


r 


! OUTPUT THE NODAL VALUES OF POTENTIAL AND POTENTIAL GRADIE 


oe | 
Zz 
4 


WRITE (6,62) I,PSIT(I),DPSIT(I) 


62 FORMAT (1X, 16, 2E15.6) 


END DO Each node in turn 
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! COMPUTE THE POTENTIAL FLOWS ACROSS THE BOUNDARY SEGMENTS. 


r. 


FLOWIN=0. 
FLOWOUT=0. 


Each segment in turn: DO ISEG=1,NSEGTOT 


FLOWSEG (ISEG) =0. 


END DO Each segment in turn 


Each element in turn: DO M=1,NEL 


ISEG=ISEGELEM (M) 


FLOWELEM=DPSIT (M) *ELENGTH (M) 


FLOWSEG (ISEG) =FLOWSEG (ISEG) +FLOWELEM 


OWELEM 


IF (FLOWELEM > 0.) FLOWIN=FLOWIN+E 


IF (FLOWELEM < 0.) FLOWOUT=FLOWOUT-FLOWELEM 


END DO Each element in turn 


WRITE (6,63) (ISEG, FLOWSEG(ISEG) , ISEG=1,NSEGTOT) 


NTIAL FLOWS INTO DOMAIN ACROSS BOUNDARY SEGMENTS" 


eal 


63 FORMAT (/ "POT 


& // “SEGMENT FLOW" / (15,E16.6)) 


WRITE(6,64) FLOWIN, FLOWOUT 


FLOW INTO DOMAIN =",E15.6 // 


64 FORMAT (/ "TOTAL POTENTIA 


& "TOTAL POTENTIAL FLOW OUT OF DOMAIN =",E15.6) 


RETURN 


x. 


END SUBROUTINE OUTPUT 


If the boundary condition at a particular point is of the first type (prescribed potential) the solution array 
PSI contains the computed potential gradient, and the relevant components of arrays PSI and DPSI must 
be interchanged. If the boundary condition is of the third, mixed, type then potential was the unknown 
and is now correctly stored in array PSI. On the other hand, the potential gradient solution (for the 


Laplace problem) has to be found using Equation 3.21 and stored in DPSI. 


Arrays PSI and DPSI now contain all the nodal point values of potential and potential gradient, either 
from the boundary conditions or from the boundary element solution. But they are for the Laplace 
equation with the particular integral subtracted. The latter contributions, stored in PSIPI and DPSIPI 
are now added to PSI and DPSI to give the “total” values solving the original problem and stored in 
PSIT and DPSIT. Both sets are scaled values, and the gradients have to be unscaled by dividing by the 


length scale, MAXL. For each node, the node number, potential and potential gradient are written out. 
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In many problems of practical engineering interest, the “flows” of potential across different parts of the 
boundary of a problem are of interest. For example, the flow rate of fluid across the boundary of a porous 
medium flow, or the flow rate of heat across the boundary of a heat conduction problem may be required. 
Such flow rates are locally proportional to the potential gradient normal to the boundary, and their totals 
over parts or all of the boundary can be found by integrating the potential gradient with respect to distance 
along the boundary. In the case of constant boundary element results this is very simply done by finding 
the flow contribution of each element (FLOWELEM) as the product of potential gradient and element 
length, and summing these contributions over the required part of the boundary. In the subprogram, the 
total flows over each boundary segment (FLOWSEG) are computed, together with the total flows into 
(FLOWIN) and out of (FLOWOUT) the domain which are found and finally written out. 


3.1.11 Subprogram for computing potentials at internal points 


Subprogram INTERNAL implements Equation 2.26 to find values of potential at points within the solution 
domain. Internal point p can be chosen freely, but the result may not be very accurate if the point is very 
close to the boundary. As already noted in subprogram KERNEL, the calculation procedure only breaks 


down completely if p happens to be chosen to coincide with an end point connecting two elements. 


SUBROUTINE INTERNAL 


! SUBPROGRAM TO COMPUTE AND OUTPUT THE POTENTIALS AT SELECTED 
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! INTERNAL POINTS. 


USE SHA 


7) 


E.DDATA2PC 


! INPUT NUMBER OF INTERNAL POINTS. 


IF(NINT == 0) RETURN 


WRITE (6, 61) 


61 FORMAT (/ "POTENTIALS AT INTERNAL POINTS" // 


& 5X, "PSI x Y") 


! INPUT THE INTERNAL POINT COORDINATES. 


Bach internal point in turn: DO IINT=1,NINT 


READ (5,*) XINT,YINT 
NODE (1) =XINT/MAXL 


NODE (1) =YINT/MAXL 


! INTEGRATE ROUND THE BOUNDARY. 


SUM=0. 


Each node in turn: DO J=1,NNP 


CALL KERNEL (1,J,AIJ,BIJ) 


SUM=SUM-AIJ*PSI (J) +BIJ*DPSI (J) 
END DO Each node in turn 


PSTIP=SUM*0.5/PI 


PSITIPT=PSIIP 


5 


! ADD THE PARTICULAR INTEGRAL FOR A POISSON TYPE PROBLEM. 


= 


IF(Fl /= 0.) THEN 


XX=XNODI 


Gl 


(1) -XC 
YY=YNODI 


Gl 


(1) -YC 


PSIIPT=PSIIPT+0.25*F1* (XX**2+YY**2) 


eal 


ND IF 


! OUTPUT THE POTENTIAL AT THE INTERNAL POINT. 


WRITE (6,62) PSIIPT,XINT,YINT 


62 FORMAT (E14.6,5X,2E12.4) 


END DO Bach internal point in turn 


RETURN 


eal 


ND SUBROUTINE INTERNAL 
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In the subprogram the number of internal points is first read into variable NINT. Then for each point in 
turn its global co-ordinates are input to XINT and YINT. These are first scaled and stored as though they 
defined the first node of the mesh. This is to facilitate the use of subprogram KERNEL in the subsequent 
integration process, the subprogram being designed to treat the source point as a node. The integration 
over the boundary required by Equation 2.26 is performed by summing over the boundary elements, 
using KERNEL to return the integrals of the kernel functions in variables AIJ and BIJ. These are no 
longer identifiable as coefficients of matrices [A] and [B], because p is not now a node of the mesh. 
The resulting value of potential at the internal point is stored in variable PSIIP. In the case of a Poisson 
problem the particular integral at the internal point is found according to Equation 2.108, noting that 
no scaling is required (the previous scaling of Fl and the co-ordinates cancelling each other out), and 
added to give the required result. Finally, the potential and the (unscaled) co-ordinates of the internal 


point are written out. 


3.1.12 Subprogram for solving the linear equations 


Both the Gaussian elimination algorithm and subprogram ELIMIN for solving the linear equations 
are described in Appendix B. The matrix [A*] extended to include the right hand side column vector 
[b] (in Equation 2.31) is entered in array A, and the solutions returned in array X (PSI in the calling 


main program). 


3:2 Some Test Problems for BEM2PC 


Before attempting to solve real problems for which the solutions are not known, it is essential to test 
any computer program as extensively as possible on problems for which exact analytical solutions are 
available for comparison. If necessary, test problems have to be simplified to the point where analytical 
solutions can be obtained. Such problems serve not only to verify that the program is working correctly, 
but also to examine the level of discretisation (the fineness of the boundary element mesh in this case) 


necessary to obtain accurate results. 


3.2.1 A simple one-dimensional potential problem 


The first test is effectively a one-dimensional one, although the domain is two-dimensional. Figure 3.2 
shows a rectangular region 4 units wide and 2 deep, subject to zero derivative boundary conditions on 
the top and bottom edges, a potential value of 5 on the left hand edge and a value of 1 at the right hand 
edge. This could, for example, be a heat conduction problem in a rectangular slab of material, with 
thermal insulation (no conduction) at the top and bottom surfaces and temperature difference between 


the opposite end faces. 
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E F 


Figure 3.2 One-dimensional test problem 


Due to the two zero derivative boundary conditions, plus the fact that the prescribed potentials on the 
end faces are uniform, the problem is one-dimensional, with no variations of potential in the vertical 
direction. It is convenient to choose global co-ordinates x and y as shown, with an origin at the bottom 


left hand corner of the domain. The Poisson equation governing the potential distribution simplifies to 
dy 
ai (3.24) 


which can be integrated first to find the potential gradient 
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and secondly to find the potential distribution 


fix? 
2 


where C and C) are constants of integration. 


The Laplace problem 


Consider first the Laplace problem with f, = 0, and 
w = Ci x + C2 (3.27) 


Given the prescribed potential boundary conditions y = 5 at x = 0 and wy = 1at x = 4, then C, =5 


and C, = —1. The exact analytical solution to the problem is 
pa—x+5, oa 1 (3.28) 


The potential “flows” into the left hand edge and out of the right hand edge of the domain are both of 
magnitude 2 (gradient times edge length). 


To obtain a constant boundary element solution to the problem it is necessary to first divide the boundary 
into segments. Four segments along the four edges of the domain are appropriate, because they are 
straight lines between corners and the boundary condition over each one is uniform. The ends of the 
segments are shown numbered 1 to 4 in Figure 3.2. The choice of starting point is arbitrary, but then 
the direction of numbering must keep the domain to the left. The data file DATA to solve the problem 


using 3 elements (and nodes) per side of the domain is as follows 


ONE-DIMENSIONAL TEST PROBLEM 


(Value of f,) 

(Number of boundaries) 

(Number of segments on the boundary) 
Avs Oe. Aye De O22 (Co-ordinates of the segment ends) 

(Radii of curvature, 

number of elements 


and element length ratio 


WOW WW W Oo 
hb 


for each of the 4 segments) 
0 (Two prescribed boundary potentials) 


(Potential = 1 on segment 2) 


OF © 


(Potential = 5 on segment 4) 


GO a: DO UN “> “> OOO if. HS 


(Number of internal points) 
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TV, “as (Co-ordinates of first internal point) 


(Co-ordinates of second internal point) 


Ba Ay (Co-ordinates of third internal point) 
The annotations on the right have been added for explanation, and are not part of the data file. The potential 
values at three internal points are called for, points E, F and G in Figure 3.2. Note that the prescribed 


zero values of potential gradient on the top and bottom edges do not have to be entered explicitly. 


The mesh data output file MESHRES is as follows 


GEOMETRIC DATA FOR THE MESH 


NUMBER OF ELEMENTS = 12 


NUMBER OF NODAL POINTS = 12 


NUMBER OF ELEMENT END POINTS = 13 


COORDINATES OF ELEMENT END POINTS 


I X DG I X ¥ 
1 0.0000E+00 0.0000E+00 2 0.1333E+01 0.0000E+00 
3 0.2667E+01 0.0000E+00 4 0.4000E+01 0.0000E+00 
5 Q.4000E+01 0.6667E+00 6 0.4000E+01 0.1333E+01 
7 0.4000E+01 0O.2000E+01 8 0.2667E+01 0.2000E+01 
9 Q.1333E+01 0.2000E+01 10 0.O0000E+00 0.2000E+01 
11 0.0000E+00 0.1333E+01 12 0.0000E+00 0.6667E+00 
13. 0.0000E+00 0.Q0000E+00 
ELEMENT END POINT NUMBERS, NODAL COORDINATES AND UNIT NORMAL COMPONENTS 
M NEP1 NEP2 X (NODE) Y (NODE) UNX UNY 
1 1 2 0.6667E+00 0O.0000E+00 0.0000E+00 -0.1000E+01 
2 2 3 0.2000E+01 0.0000E+00 0.0000E+00 -0.1000E+01 
3 3 4 0.3333E+01 0.0000E+00 0.0000E+00 -0.1000E+01 
4 4 5 Q.4000E+01 0.3333E+00 0.1000E+01 0.0000E+00 
5 5 6 0.4000E+01 0.1000E+01 0.1000E+01 0.0000E+00 
6 6 7 Q.4000E+01 0.1667E+01 0.1000E+01 0.0000E+00 
7 7 8 0.3333E+01 0.2000E+01 0.Q0000E+00 0O.1000E+01 
8 8 9 Q0.2000E+01 0O.2000E+01 0.0000E+00 0Q.1000E+01 
9 9 10 0.6667E+00 0O.2000E+01 0.0000E+00 0O.1000E+01 
10 10 11 0.0000E+00 0.1667E+01 -0.1000E+01 0.0000E+00 
11 11 12 0.0000E+00 0O.1000E+01 -0.1000E+01 0.0000E+00 
12 12 13 0.0000E+00 0.3333E+00 -0.1000E+01 0.0000E+00 
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With three elements per segment 12 elements and nodes are created. Element ends are numbered as for 
the segments, anticlockwise from the origin and there are 13 of them: end 13 is coincident with end 1. 
The elements and nodes are numbered from 1 to 12 in the same way. Element 5, for example, is at the 
middle of the right hand edge of the domain, has ends numbered 5 and 6, and its node is at (4, 1), the 


centre point of the edge. 


The RESULTS data file output by the program is 


CONSTANT BOUNDARY ELEMENT SOLUTION FOR TWO DIMENSIONAL POTENTIAL 


PROBLEM 


ONE-DIMENSIONAL TEST PROBLEM 


AAPLACE EQUATION 


PRESCRIBED POTENTIAL BOUNDARY CONDITIONS 


POTENTIA 0.1000E+01 AT NODES 4 TO 6 


POTENTIA 


0.5000E+01 AT NODES 10 TO 12 


NODAL POINT POTENTIALS AND POTENTIAL GRADIENTS 


al PSI DPSI 

1 0.438490E+01 0.000000E+00 

2 0.300000E+01 0.000000E+00 

3 0.161510E+01 0.000000E+00 

4 0.100000E+01 -0.116979E+01 
~) 0.100000E+01 -0.912910E+00 
6 0.100000E+01 -0.116979E+01 
7 0.161510E+01 0.000000E+00 

8 0.300000E+01 0.000000E+00 

9 0.438490E+01 0.000000E+00 

10 0.500000E+01 0.116979E+01 

11 0.500000E+01 0.912910E+00 

12 0.500000E+01 0.116979E+01 
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POTENTIAL FLOWS INTO DOMAIN ACROSS BOUNDARY SEGMENTS 


SEGMENT FLOW 
1 0.000000E+00 
2 -0.216833E+01 
3 0.000000E+00 
4 0.216833E+01 


TOTAL POTENTIAL FLOW INTO DOMAIN = 0.216833E+01 


TOTAL POTENTIAL FLOW OUT OF DOMAIN = 0.216833E+01 


POTENTIALS AT INTERNAL POINTS 


PSI Xx x 
0.402394E+01 0.1000E+01 0.1000E+01 
0.300000E+01 0.2000E+01 0.1000E+01 
0.197607E+01 0.3000E+01 0.1000E+01 


The prescribed potential boundary conditions are a value of 1 over nodes 4, 5 and 6 on the right end 
edge (segment 2), and a value of 5 over nodes 10, 11 and 12 on the left hand edge (segment 4). Segments 
1 and 3 defining the top and bottom edges had no boundary condition prescribed by the DATA file, so 


zero normal derivative conditions are assumed. 


The computed results show that at nodes 2 and 8 (at x = 2 on the bottom and top edges, respectively) 
the exact potential value of 3 (Equations 3.28) is computed. At nodes 1 and9 (x = 0.6667) it is 4.3849, 
compared with the exact 4.3333, and at nodes 3 and 7 (x = 3.3333) it is 1.6151, compared with the 
exact 1.6667. At node 5 at the centre of the right hand edge the computed potential gradient is -0.9129 
compared with the exact -1 (Equations 3.28), and similarly at node 11 at the left hand edge it is +0.9129 
compared with +1 (at this edge the normal direction is in the negative x direction). While at node 5 


the computed gradient is 8.7% too low, at the adjacent nodes 4 and 6 it is 17% too high. 


The computed potential “flows” into and out of the domain across the boundary segments are both 
2.168, compared with the exact figure of 2 (8.4% difference). In any Laplace problem with no source 
or sink for potential within the domain it is to be expected that the net flow of potential is zero. The 
computed values of potential at points E, F and G (Figure 3.2) are 4.024, 3, and 1.976, compared with 
exact values of 4, 3 and 2. 
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It should be noted that the computed results are exactly symmetrical about the horizontal centre line of 
the domain, which is to be expected because the problem is similarly symmetrical. Also, the exact values 
of potential are obtained on the vertical centre line of the domain. The accuracies of other computed 
results are relatively poor, but at only three constant boundary elements per side the mesh is coarse. 
The next step is therefore progressively to refine the mesh and monitor the improvement in accuracy. 
For this latter purpose the potential gradient at the centre of the right hand edge, the potential at the 
internal point E, and the flows in and out of the domain (always equal) are examined. The last of these 
is useful in that it effectively averages the potential gradient over the domain edge. To refine the mesh, 
the only changes that have to be made in file DATA are the numbers of nodes (3 initially) on each of 
the four boundary segments. These numbers are progressively increased by about factors of 2 each time, 
but keeping an odd number so that a node coincides with the centre of the right hand edge. Table 3.1 


shows the results obtained. 
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Nodes Gradient Potential Flow in/out 


per edge at (4,1) at (1, 1) 

Exact: -l 4 2 
3 -0.9129 4.0239 2.1683 
7 -0.9783 4.0058 2.0424 
15 -0.9932 4.0018 2.0121 
31 -0.9978 4.0006 2.0037 
61 -0.9993 4.0002 2.0012 
121 -0.9997 4.0001 2.0004 
241 -0.9999 4.0000 2.0001 


Table 3.1 Effects of refining the mesh (Laplace problem) 


Accuracies of better than 1% for the chosen values are achieved by the time the mesh refinement reaches 
15 nodes per edge, which is the sort of accuracy which is often adequate in practical engineering problems. 
Further refinement leads to very high accuracy, with results correct to four significant figures at 241 
nodes per edge, which is close to the maximum permitted by the program array dimensions. With very 
refined meshes, and certainly at 241 nodes per edge, the results computed for the boundary points, in 
this case notably the gradient values at the right hand boundary, are beginning to display some random 
fluctuations from point to point in the sixth, and occasionally fifth, decimal places. This is characteristic 
of roundoff errors resulting from representing numbers with only a finite number of significant figures 
and then performing a large amount of arithmetic on them. Roundoff errors can accumulate in the 
Gaussian elimination process used to solve very large sets of linear equations, as discussed in Appendix 
B, even though subprogram ELIMIN is designed to keep these errors to a minimum. Computed results 
at internal points and for the flows in and out of the domain are the results of integrations of boundary 
values over all or part of the boundary, which tend to smooth out the fluctuations due to roundoff, 
and these results converge more smoothly with mesh refinement. If roundoff were to become a serious 
problem, double precision arithmetic (doubling the number of bytes used to store each number) could 


be used, at least for the Gaussian elimination. 


‘The Poisson problem 


The same problem can be turned into one of the Poisson type by introducing a non-zero value of function 
fi. A value can be arbitrarily chosen as 1. If this were a thermal conduction problem a positive value of 
f, would imply a uniform heat absorption throughout the domain (in Equation 1.10 heat generation 
is positive on the left hand side of the equation, resulting in a negative f1). Applying the prescribed 
potential boundary conditions = 5 at x = O and w = 1at x = 4, to Equation 3.26 gives C, = 5 and 


C, = —3. The exact analytical solution to the problem is 
2 
py =—- 3x45, Wax -3 (3.29) 
2 dx 
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The potential at point E (x = 1) is now 2.5, and the potential gradients at the left and right hand edges 
(x = O and 4) are and, respectively. The potential “flow” into the left hand and right hand edges of the 
domain are 6 and 2 (8 in total, the magnitude of sink f; multiplied by the area 4 x 2 = 8 over which 


it is uniformly distributed). 


Although the analytical solution remains one-dimensional, the two-dimensional form of the particular 
integral means that the Laplace problem solved by the program, with boundary conditions which are 
now two-dimensional, is certainly two-dimensional. The only change required to file DATA is to replace 
the zero value (for f,) in the second line by the value 1., followed immediately by a new line with the 
co-ordinates of the origin for the particular integral function. The centre of the domain at x = 2.,y = 1. 


is convenient. 


Nodes Gradient Potential Flow in Flow in 
per edge at (4, 1) at (1, 1) at x = 0 atx =4 
Exact: 1 2.5 6 2 
3 0.9917 2.5827 6.2542 1.9175 
i 0.9931 2.5221 6.0664 1.9816 
15 0.9979 2.5065 6.0194 1.9951 
31 0.9994 2.5020 6.0059 1.9986 
61 0.9998 2.5006 6.0019 1.9995 
121 0.9999 2.5002 6.0006 1.9999 
241 1.0000 2.5001 6.0002 2.0000 


Table 3.2 Effects of refining the mesh (Poisson problem) 


Table 3.2 shows the results of mesh refinement in a form comparable to Table 3.1. Very similar trends 
can be observed, including the effects of roundoff on individual boundary values. The change from a 
Laplace to a Poisson type problem, with the introduction of a two-dimensional particular integral, does 


not adversely affect accuracy. 


Internal points close to the boundary 


In Figure 3.2 the chosen internal points E, F and G are not close to any part of the boundary. With most 
boundary element methods, taking an internal point close to the boundary leads to loss of accuracy, due 
to the singular nature of the fundamental solutions and the use of approximate numerical integration. 
Table 3.3 shows the effect of taking internal point E from its initial position at (1, 1) progressively closer 
to the boundary at (1, 0) (not varying its x co-ordinate, x = 1). The meshes used are 61 and 241 nodes 


per edge. 
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y 61 nodes per edge 241 nodes per edge 
1 2.5006 2.5001 
107! 2.5009 2.5001 
10° 2.4951 2.5000 
10° 2.4893 2.4977 
10% 2.4887 2.4970 
10° 2.4886 2.4970 
10° 2.4886 2.4970 
0 2.4886 2.4970 


Table 3.3 Potential at internal points at (1, y) 
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Although there is some loss of accuracy compared to the exact value of 2.5, the effect of approaching the 
boundary is small. For both meshes, the change from computed values slightly above the exact to values 
somewhat below it happens as the internal point comes within about one element length of the boundary. 
The last line in the Table is for a point actually on the boundary. The reason for being able to maintain 
good accuracy is that with constant elements all the integrations around the boundary are carried out 
analytically. Note that it would not have been possible to obtain the potential at an element end point in 
this way, and the program would have given an error message. Interestingly, it is possible to treat a node 
as an internal point. For example, using the 61 node per edge mesh, the potential computed as part of 
the main solution at the centre point of the lower edge, at (2, 0) is 1.00053 (exact 1), and precisely the 


same value is obtained when (2, 0) is treated as an internal point. 


Domain aspect ratio 


Rather like taking an internal point close to a boundary, making the domain very narrow and bringing 
opposite sides of the boundary close together can cause loss of accuracy. In the present problem, the 
width of the domain is twice its height, giving an aspect ratio of 2. Table 3.4 shows the effects of increasing 


this aspect ratio, by progressively reducing the depth of the domain, using a mesh of 61 nodes per edge. 


Aspect Potential Potential Gradient 
ratio at node 1 at node 31 at node 92 
Exact 4.9022 1 1 
2 4.9082 1.0005 0.9998 
4 4.9092 1.0013 0.9995 
8 4.9099 1.0028 0.9989 
16 4.9109 1.0062 0.9977 
32 4.9129 1.0130 0.9960 
64 4.9176 1.0262 0.9935 
128 4.9264 1.0462 0.9881 
256 4.9376 1.0672 0.9829 


Table 3.4 Effects of varying domain aspect ratio 


The variables selected for scrutiny are the potential at node 31, at the centre of the lower edge, the 
potential gradient at node 92, at the centre of the right hand edge, and the potential at node 1 on the 
bottom edge, at x = 2/61. Node 1 is chosen deliberately close to a corner of the domain. While there 
is some deterioration of accuracy with increasing aspect ratio, the effect is not disastrous, even when 
the top and bottom edges approach to within the length of one element on these edges (which occurs 


at an aspect ratio of about 60). 
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Prescribed potential gradient boundary conditions 


So far, only prescribed potential and zero potential gradient boundary conditions have been used. Staying 
with the present Poisson problem, the condition on the left hand edge can be changed from a prescribed 
potential of magnitude 5 to a prescribed gradient of 3: the problem is unchanged. If this is done using 


a mesh with 61 nodes per edge, the following are obtained 


Potential at (2, 0) = 0.9987 (exact 1) 
Potential gradient at (4, 1) = 1.0007 (exact 1, previously 0.9998) 


Potential at (0, 1) = 4.9977 (exact 5, previously 5 prescribed) 


The results are, as is to be expected, not identical to those obtained when potential rather than the 


gradient is prescribed, but the accuracy is not impaired. 


Mixed boundary conditions 


Again staying with the same problem, on the left hand edge the exact solution gives the potential as 5 
and gradient as 3, so in place of either the prescribed potential or prescribed gradient, a possible mixed 


boundary condition on the edge is 


dy 
an? 
Prescribing values of @ = 1 and B = —2 and again using a mesh of 61 nodes per edge, the following 


are obtained 


Potential at (2, 0) = 1.0011 (exact 1) 
Potential gradient at (4, 1) = 0.9953 (exact 1) 
Potential at (0, 1) = 5.0032 (exact 5) 


Potential gradient at (0, 1) = 3.0032 (exact 3) 


Again there is no loss of accuracy. 
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3.2.2 A thick-walled cylinder test problem 


The second test is designed to demonstrate the ability of the program to solve problems with curved 
boundaries, problems with more than one boundary, and the use of elements of varying size along a 
boundary segment. Figure 3.3 shows the cross-section of a thick-walled circular cylinder with internal 
and external radii of 7, and r,. The boundary conditions are prescribed potentials of Y; and w2 at the 
inner and outer surfaces, respectively. A practical engineering application would be to heat conduction 


through the walls of a cylinder with different temperatures at the two curved surfaces. 


Figure 3.3 Thick-walled cylinder test problem 
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The problem is simple enough for an analytical solution to be obtainable. In plane polar co-ordinates 
(r,@) with r in the radial direction and @ in the circumferential direction as in Figure 3.3, Poisson’s 
equation, Equation 2.1, becomes 

ap  10p , 107p_ io, 

pee ae es 
The problem is axisymmetric, with no variations in the circumferential direction. The second derivative 


with respect to @ is therefore zero, and Equation 3.30 can be written 


1d[_ dy 
a aes =f; (3.31) 
d [dy] _ 
Hence <|r2 =fir 
dy fir? 
= FO 
dr 2 s 
dfd 
<|r2 Sir (3.32) 
fir? 
w _ 4 + C,Inr + C2 (3.33) 


where C, and C, are constants of integration. Applying the boundary conditions p = y, at r = r, and 


wy = 2 at r = 7, results in the following expressions for potential and potential gradient 


fi 7.2 2 fi 7,2 2 nig) 
pa=wt7 (re = 7) + [che — 4) - Zz (ry - 1; )| ini) (3.34) 
dp _ f, fi 1 
Pa = + [op2 —Y4)- ri (rf - r?)| rin@) (3.35) 
Laplace problem 


Consider first the Laplace problem with f, = 0, corresponding to thermal conduction with no heat 
generation or absorption within the wall of the cylinder. Take the case where 7, = 1, 72 = 10, Yy = 
8, and w, = 1. The ratio between the outer and inner radii is chosen to be quite large for reasons that 


should become clearer later. With these data, the potential and potential gradient distributions are 


W = 8 — 3.04006 Inr (3.36) 
dp _ 3.04006 
ae 5 (3.37) 


The potential values at typical internal points are at r = 4, w = 3.7856 and at r = 7, = 2.0843. 
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Bearing in mind that program BEM2PC cannot accept boundary segment specifications with angles 
greater than 180°, the simplest mesh to represent the geometry shown in Figure 3.3 requires four 
segments, two on the outer boundary with end points arbitrarily chosen at (10, 0) and (-10, 0), and two 
on the inner boundary with end points at (0, -1) and (0, 1). These end points are numbered 1 to 4 in 
Figure 3.3. The following is an annotated DATA input file for this problem, with just 4 elements and 
nodes per semi-circular segment, 2 per quadrant. This means that each element has to represent an arc 
of 45° by means of the straight chord between the ends of the arc, with the node at its centre. Note that 
the radii of curvature of the segments 3 and 4 on the inner boundary are both negative, because the 
centre of curvature is outside the boundary. The file calls for potentials to be computed at two internal 


points, on the axis at radii of 4 and 7. 


THICK-WALLED CYLINDER 


) (Value of f,) 

2 (Number of boundaries) 

2 (Number of segments on first boundary) 
10. O. -10. O. (Co-ordinates of the segment ends) 


10. 4 1. (Radii of curvature, numbers of elements 


4 1. and length ratios) 
2 (Number of segments on second boundary) 
O. -1l. O. 1. (Co-ordinates of the segment ends) 


S144 1. (Radii of curvature, numbers of elements 


-1. 4 1. and length ratios) 


0 0 (Four prescribed boundary potentials) 


(Potential = 1 on segment 1) 


4 
1 
Pod (Potential = 1 on segment 2) 
3 8. (Potential = 8 on segment 3) 
4 8. (Potential = 8 on segment 4) 


2 (Number of internal points) 


Ans 10's (Co-ordinates of first internal point) 


Pas “Oks (Co-ordinates of second internal point) 


Table 3.5 shows the results obtained for meshes ranging from 2 nodes per quadrant (4 per segment) up 


to 24 nodes per quadrant (48 per segment). 
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Nodes per Gradient Gradient Potential Potential Flowin Flow out 
Quadrant atr=1 atr=10  at(4, 0) at (7, 0) atr=1 atr=10 


Exact 3.0401 -0.30401 3.7856 2.0843 19.101 19.101 


3.133 -0.3220 3.583 1.877 19.18 19.72 

3 3.079 -0.3112 3.697 1.994 19.12 19.33 
4 3.062 -0.3078 3.736 2.034 19.11 19,22 
5 3.053 -0.3064 3.754 2.052 19.11 19.17 
6 3.049 -0.3056 3.764 2.062 19.10 19.15 
8 3.045 -0.3049 3.773 2.072 19.10 19.13 
12 3.042 -0.3044 3.780 2.079 19.10 19.11 
24 3.041 -0.3041 3.784 2.083 19.10 19.10 


Table 3.5 Results for the thick-walled cylinder Laplace problem 
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Since the problem is axisymmetric it is to be expected that the computed gradients at all the nodes 
on the inner boundary would be identical, and similarly for all the nodes on the outer boundary. This 
proves to be the case, but for fluctuations in the sixth, and occasionally fifth, significant figure. This is 
again due to roundoff error, and becomes more noticeable as the mesh is refined. By the time 24 nodes 
per quadrant (192 nodes in total) is reached the fifth significant figures are definitely affected, and this 
represents about the maximum accuracy that can be achieved: further refinement only leads to roundoff 
errors exceeding any improvement in accuracy. At this level of refinement, however, the results are almost 


correct to four significant figures. 


Note that using coarse meshes, say 2 or 3 elements per quadrant, the results are significantly inaccurate. 
This is because straight line elements, with nodes at their centres and not on the actual boundary, 
provide rather poor representations of the circular arc geometry. Accuracy clearly improves quite rapidly 
as the mesh is refined, and by about 12 nodes per quadrant (96 nodes in total) is adequate for most 


practical purposes. 


Poisson problem 


Consider the same problem, but of the Poisson type with f; = —1, corresponding to thermal conduction 


with heat generation within the wall of the cylinder. Equations 3.34 and 3.35 reduce to 


2 
= 8.25 ——— 7.70872 Inr (3.38) 
d 7.70872 
- . aa (3.39) 


Hence, the gradients at the inner and outer surfaces of the cylinder are 7.2087 and -4.2291, respectively. 
The potential values at typical internal points are at r= 4 w = 14.937 and at r = 7,w = 11.000. The 
origin for the particular integral function for this Poisson problem is taken as the centre of the cylinder, 


which in this case coincides with the origin chosen for the global co-ordinates. 


Table 3.6 again shows the results obtained for meshes ranging from 2 nodes per quadrant (4 per segment) 


up to 24 nodes per quadrant (48 per segment). 
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Nodes per Gradient Gradient Potential Potential Flowout Flow out 
Quadrant atr=1 atr = 10 at (4, 0) at (7, 0) atr=1 atr=10 


Exact -7.2087 -4.2291 14.937 11.000 45.294 265.72 


Z -5.861 -3.970 15,13 8.319 35.88 243.1 
3 -6.595 -4.114 14.12 9.790 40.97 259.0 
4 -6.8603 -4.164 14.48 10.32 42.83 260.0 
3 -6.9846 -4.188 14.64 10.56 43.70 262.1 
6 -7.053 -4.201 14.73 10.70 44.19 263.2 
8 -7.121 -4.213 14.83 10.83 44.67 264.3 
12 -7.169 -4.222 14.89 10.93 45.01 265.1 
24 -7.199 -4.227 14.92 10.98 44.22 265.6 


Table 3.6 Results for the thick-walled cylinder Poisson problem 


The trends are very similar to those observed for the Laplace version, with mesh refinement up to about 


12 or 24 nodes per quadrant to give good accuracy. 


Use of Symmetry 


Returning to the Laplace problem, there is no need to analyse the whole of this axisymmetric problem, 
but only a small part of it. Figure 3.4 shows one quadrant of the thick-walled cylinder with the relevant 
boundary conditions on the curved surfaces. The normal gradients on the planes of symmetry that cut 
through the cylinder walls are zero. Of course, a slice substantially smaller than a quadrant could have 
been analysed. Not only is the size of the problem reduced, but it has been simplified from multiply- 
connected (two boundaries) to singly-connected (one boundary). It remains to be seen what benefits, if 


any, this offers. The boundary is divided into four segments, with the numbered end points as shown. 


3 
y=1 
4 
ae 
7 1 2 


Figure 3.4 One quadrant of the thick-walled cylinder test problem 
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Table 3.7 shows the results obtained for meshes ranging from two nodes per segment (two per quadrant 
on the curved parts of the boundary) up to 24 nodes per segment. These should be compared with 
Table 3.5 for the whole cylinder. Note that the internal points for potential evaluation are at & =) 
and SG =). These are at r = 4 and r = 7, but no longer on the axis, which now forms part of the 
boundary. The magnitudes of the potential flows in and out of the domain are reduced by factors of 4 


because only a quarter of the problem is now being considered. 


DO YOU WANT TO KNOW: 


What your staff really want? 


The top issues troubling them? 


How to make staff assessments 
work for you & them, painlessly? 


How to retain your 
top staff 


FIND OUT NOW FOR FREE 


Get your free trial 


Because happy staff get more done 


Download free eBooks at bookboon.com 


125 Click on the ad to read more 


Nodes per Gradient Gradient Potential Potential Flow in Flow out 
Quadrant atr=1 atr=10 atr=4 atr= 7 atr=1 atr= 10 


Exact 3.0401 -0.30401 3.7856 2.0843 4.7753 4.7753 


2 3.736 -0.3460 3.657 1.924 7719 3.297 
3 2.816 -0.3232 833 2.053 5.431 5.166 
4 2.786 -0.3198 3.860 2.087 5.262 5.076 
5 2777 -0.3172 3.860 2.097 5,133 5.015 
6 Det1e -0.3148 3.854 2.100 5.080 4.971 
8 2.803 -0.3117 3.840 2.100 4.987 4.914 
12 2.0/1 -0.3086 3.821 2.096 4.897 4.857 
24 2.967 -0.3057 3.800 2.089 4.819 4.805 
48 3.015 -0.3046 3.191 2.086 4.790 4.785 
96 3.030 -0.3042 3.787 2.085 4.780 4.779 


Table 3.7 Results for the thick-walled cylinder quadrant Laplace problem 


The computed gradients on the curved parts of the boundary are no longer even nearly constant, until 
the mesh is considerably refined, and the values tabulated are for either the mid point or the two nodes 
immediately adjacent to the mid point (depending whether the number of nodes per quadrant is odd 
or even). The results show erratic behaviour, and are certainly less accurate than those in Table 3.5. 
Corresponding results for the same numbers of nodes per quadrant should agree, if the inaccuracies 
are due mainly to inadequate modelling using straight line elements. This is not the case, particularly 
at the inner curved boundary at r = 1, even though the potential flow (an average over the gradients) 


there is more accurate than the single point gradient. 


The explanation for this behaviour is the nature of the mesh applied to this particular geometry. A thick- 
walled cylinder geometry with external radius ten times the internal radius was chosen deliberately so 
that the potential varies much more rapidly with radius at the inner surface than at the outer surface. 
While the whole cylinder was analysed this was not an issue. But the use of a uniform distribution of 
element size over the lines of symmetry of one quadrant of the cylinder does not adequately model the 


variation of potential, at least with elements over each of which the potential is assumed to be constant. 


In this situation the use of non-uniform distributions of elements over the relevant segments of the 
boundary should be helpful. The method of varying the elements sizes which is implemented in the 
program is described in Section 3.1.3. The key parameter is S, the ratio between the lengths of successive 
elements in the direction of numbering. A value of S greater than unity is required on the first segment 
joining the end points numbered 1 and 2 in Figure 3.4, to ensure that the element size increases from point 
1 towards point 2. On the other hand, on the third segment joining points 3 and 4, the corresponding 
ratio should be 1/S, to ensure that element size decreases from point 3 towards point 4, in the direction 


of numbering. 
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Table 3.8 shows the effect of increasing the length ratio applied in this way from unity up to 1.4. 


S Gradient Gradient Potential Potential Flow in Flow out 
atr=1 atr= 10 atr= 4 atr=7 atr=1 atr=10 


Exact 3.0401 -0.30401 3.7856 2.0843 4.7753 4.7753 


1.0 2.871 -0.3086 3.821 2.096 4.897 4.857 
1.1 2.960 -0.3053 IAS 2.084 4.827 4.818 
1.2 3.022 -0.3033 3.778 2.076 4.799 4.808 
I 3.045 -0.3016 3109 2.071 4.792 4.814 
1.4 3.055 -0.2999 3.761 2.066 4.793 4.825 


Table 3.8 Effects of varying element length ratio for a mesh of 12 nodes per quadrant 


While there is a steady improvement in gradient values at the inner cylinder surfaces for ratios up to 1.3, 
the values at the outer surface are deteriorating. Further increasing the ratio only makes matters worse. 
This is because, while there is a desirable reduction in element size at the inner surface, the elements 
close to the outer surface are becoming too large, with resulting loss of accuracy. As it happens, at a 
ratio of 1.3 in this mesh the sizes of the elements on the curved and straight segments at points 1 and 4 
are roughly equal in length. Comparing the results in Table 3.8 with those for 12 nodes per quadrant in 
Table 3.5, it can be seen that even with a non-uniform mesh the results are not as good. At least for this 
problem, the use of symmetry to reduce the size of the problem results in a significant loss of accuracy. 
Constant boundary elements are, as is to be expected, not ideal in situations where the physical variables 
change rapidly. This is quite apart from their inability to accurately follow curved boundary shapes. 


Higher-order elements such as quadratic can be expected to offer substantial benefits. 


3.3 An Example: Downstream Viscous Flow in a Rectangular Channel 


A more practical problem for solution by program BEM2PC is the viscous channel flow problem 
described in Section 1.2.1. It is a problem that arises in, for example, the screw extrusion of materials 


such as thermoplastics. 


Analytical solution 


If the rectangular channel is infinitely wide compared with its depth, that is H « W in Figure 1.2, the 


governing differential Equation 1.29 for the downstream flow is reduced to 


(3.40) 
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Integration of this ordinary differential equation with the boundary conditions defined in Equations 


1.30 yields the following velocity profile 


i Vag Tir 
Wea tye WE (3.41) 


The volumetric downstream flow rate can be found with the aid of Equation 1.31 as 


_ WHV, —WP,H? 


Q=5 oF (3.42) 


For a channel of finite width, when the governing equation reverts to Equation 1.29, the flow rate can 


be expressed in a similar form as 


3 
Q= 5 Py = 2p Fp (3.43) 


The parameters Fp and Fp are known as the drag and pressure flow shape factors, respectively, because 
of their associations with the drag flow induced by the boundary velocity V, and the pressure flow due to 
the gradient P,. These shape factors take account of the two-dimensional nature of the problem, which 
can actually be solved by a series approach. The values of these factors for a particular value of the ratio 
of channel depth to width H/W may be obtained from 


Wiss tanh get) 
2k tanh @) 
fp = 1192 oy =e (3.45) 
Equation 3.43 can be expressed in the more convenient dimensionless form 
_ Fo _ 1TpFp 
Ta =F 12 (3.46) 
where the dimensionless flow rate and pressure gradient are defined as 
= _2_ 2a (3.47) 
Oo way,? Pw, : 
The problem 


The problem is to use constant boundary element program BEM2PC to compute the values of 
dimensionless flow rate, 7g, for a series of values of dimensionless pressure gradient, 1p, of —2, 0,2 
and 4, for a channel that is five times as wide as it is deep. For H/W = 0.2 the particular form of 


Equation 3.46 is 
Tq = 0.4457 — 0.07283 mp (3.48) 
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where the constants, based on the shape factors given by Equations 3.44 and 3.45, are given to four 
significant figures. Note that a positive pressure gradient, indicating pressure increasing with normal to 
the channel cross-section in the direction of the movement of the top boundary tends to cause flow in 
the opposite direction, and hence a reduction in the overall flow rate. A negative pressure gradient, on 


the other hand, enhances the flow rate. 


Integration of potential over the domain 


Before attempting to solve the problem, it is necessary to extend the program to compute the integral of 


potential over the solution domain in order to be able to find the volumetric flow rate. 


To write a piece of program to meet this requirement for any domain, of arbitrary shape with an arbitrary 
number of boundaries, is not straightforward, and is beyond the scope of this book. The approach 
adopted is therefore to modify subprogram INTERNAL as follows to carry out the required integration 


for a domain which is rectangular in shape (but of arbitrary depth to width ratio), and has values of 


potential prescribed on each of its four edges (the four values can be different). 


FULL ENGAGEMENT... 


RUN FASTER. = 
RUNLONGER. | 
RUN EASIER... 


Download free eBooks at bookboon.com 


129 Click on the ad to read more 


4 y= 3 
y 
A 
=] p=0 y=0 
ar 
1 w=0 Zi 
ag W=5 


Figure 3.5 Rectangular channel cross-section solution domain 


Ip 


ropiems 


Figure 3.5 shows the channel cross-section with its boundary divided into four segments, with their ends 


numbered in order from the bottom left hand corner. 
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Boundary Element Methods for Engineers: 


Part I: Potential Problems 


! FIND PRESCRIB 


r 


For each segment in 
IF (ISEGBC(IBCP) == 
IF (ISEGBC(IBCP) == 


IF (ISEGBC(IBCP) == 


IF(ISEGBC(IBCP) == 


BOT=YSEND (1) 


D 
EF T=XSEND (4) 


! OUT 


cal 


IXMAX=NX+2 
TYMAX=NY+2 


iD BOUNDARY VALU 


END DO For each segment in 


COORDINATES OF DOMAIN SIDI! 


Constant Boundary Element Program for Potential Problems 


turn: DO IBCP=1,NBCP 
1) PSIBOT=PSISEG (IBCP) 
2) PSIRIGHT=PSISI! 

3) PSITOP=PSISEG(IBCP) 


ES OF POTENTIAL. 


= 


EG (IBCP) 


4) PSILEFT=PSISEG(IBCP) 


HX= (XRIGHT-XLEFT) /FLOAT (NX+1) 
HY= (YTOP-YBOT) /FLOAT (NY+1) 


YINTGL (1) =PSILEFT* (YTOP-YBOT) 


CUEn 


Gl 
Nn 


R LOOP FOR INTEGRATION IN X DIRECTION. 


YINTGL (IXMAX) =PSIRIGHT* (YTOP-YBOT) 


For each X position 


PSIVAL (1) =PSIBOT 


in turn: DO IX=2, 1XMAX-1 


PSIVAL (IYMAX) =PSITOP 


XPOINT=XLEFT+HX* FLOAT (IX-1) 


! INNER LOOP FOR INTEGRATION IN Y 


DIR 


ECTION. 


! FIRST FIND POTENTIALS AT THE INTERNAL POINTS. 


For each Y position 


in turn: DO IY=2,ITYMAX-1 


YPOINT=YBOT+HY* FLOAT (IY-1) 


XNODE (1) =XPOINT/MAX 


YNODE (1) =YPOINT/MAX 


! INTEGRATE ROUND TH 


Gl 


BO 


SUM=0. 


Each node in turn: 


CALL KERNEL (1,J,AId 


SUM=SUM-AIJ*PSI (J) + 


aie 


ai 


UNDARY. 


DO J=1,NNP 
,BId) 


BIJ*DPSI (J) 
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PS 


PS 


END DO Each node in turn 


IIP=SUM*0.5/PI 


IIPT=PSIIP 


ADD PARTICULAR INTEGRAL. 


‘LE 


EN 
PS 
EN 


(Fl /= 0.) THEN 
XX=XNODE (1) -XC 
YY=YNODE (1) -YC 


PSIIPT=PSIIPT+0.25*F1* (XX**2+YY**2) 
D IF 
IVAL (IY)=PSIIPT 


D DO For each Y position in turn 


INTEG 


RATE POTENTIAL IN Y DIRECTION. 


SU 


or 
G 


(e) 


n 


U 


YI 


EN 
fol 


M=0. 
r alternate points in the Y direction: DO IY=2,IYMAX-1,2 
M=SUM+PSIVAL (IY-1)+4.*PSIVAL (IY) +PSIVAL (IY+1) 


D DO For alternate points in the Y direction 


NTGL (IX) =SUM*HY/3. 


D DO For each X position in turn 
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! NOW INTEGRAT 


r 


IN X DIRECTION. 


SUM=0. 
For alternate points in the X direction: DO IX=2,IXMAX-1,2 
SUM=SUM+YINTGL(IX-1)+4.*YINTGL (IX) +YINTGL (IX+1) 


END DO For alternate points in the X direction 


PSI INTG=SUM*HX/3. 


AREA= (XRIGHT-XLEFT) * (YTOP-YBOT) 
APSITINTG=PSIINTG/AREA 


! OUTPUT RESULT. 


WRITE (6,64) PSIINTG, APSIINTG, NX, NY 


64 FORMAT (/ "INTEGRAL OF POTENTIAL OVER SOLUTION DOMAIN =",E15.6, 
& / “AREA AVERAGE OVER SOLUTION DOMAIN =",E15.6, 
& / “NUMBERS OF INTERNAL POINTS IN X AND Y DIRECTIONS =", 
& I5,5X,"AND", I5) 
! 
RETURN 


Tr. 


a 


ND SUBROUTINE 


INTERNAL 


The new version of subprogram INTERNAL assumes that the segment ends are numbered as in Figure 3.5, 
but takes both the channel dimensions H and W, and the values of potential prescribed on the boundary 
edges from the data already available in the program. The only new information which has to be read 
in are the numbers of internal points in the two global co-ordinate directions to be used for numerical 
integration (NX and NY). It is normally appropriate to use numbers similar in magnitude to those of 
the nodes on the corresponding edges. 


The method of integration used is Simpson’s Rule. Given a function g(x) which is defined over a small 
range of x by means of discrete values g;, gz and g3, and as shown in Figure 3.6, the spacing, h, of 
these values in the x direction being uniform, the integral of the function is given approximately by 


b h 
J, g(x)dx ~ 5(91 + 492 + 93) (3.49) 


As indicated in Appendix A, this is a special case of Gaussian quadrature. This formula can be repeated 


for more than three uniformly spaced function values, provided that the total number of values is odd. 


Download free eBooks at bookboon.com 


Figure 3.6 Numerical integration using Simpson's rule 


The subprogram tests NX and NY for oddity, and if necessary increases an even number by one. The 
total numbers of function values in each direction to be used in the integration are each two more 
these, because the boundary values are included. The maximum size of these numbers is 300, imposed 


by declared array sizes. 


The prescribed boundary values of potential are obtained from the segment values for each of the 
bottom, right, top and left hand edges of the channel, and stored in PSIBOT, PSIRIGHT, PSITOP, and 
PSILEFT. Similarly, the global co-ordinates of the same sides are found from appropriate segment end 
co-ordinates and stored in YBOT, XRIGHT, YTOP, and XLEFT. This allows the spacings in the x and y 
directions between columns and rows of internal points to be found and stored in HX and HY. Numerical 
integration is first carried out in the y direction. For each vertical column of points in turn the bottom 
and top values are found from the boundary values of potential. Then, for each internal point in turn, 
the potential is computed exactly as described for the first version of subprogram INTERNAL, and 
stored in array PSIVAL. Then Simpson's Rule is applied repeatedly from bottom to top of the column of 
points, the resulting integral being stored in array YINTG. The process is then applied for integration 
in the x direction, the function to be integrated now being represented by the array of y direction 
integrals YINTGL. Note that the values of this at the left and right hand boundaries are the integrals of 
the constant boundary potentials PSILEFT and PSIRIGHT, in other words the simple products of the 
potential values and the height of the domain. The result of the double integral with respect to both x 
and y is stored in PSIINTG. The area average is also found, and the two values written out, together 


with the numbers of internal points used in the integration. 


Application to channel flow 


The boundary conditions used are shown in Figure 3.5: a unit value of potential on the top edge, zero on 
the other three. In terms of the physical problem this is V, = 1. Consequently, the dimensionless flow 
rate defined in Equations 3.47 can be obtained from the program as the area average of the integral of 


potential (downstream velocity) over the channel cross-section. From Equations 1.29 and 2.1 


fA=- (3.50) 
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and since H = 1 and JV, = 1 it follows from Equations 3.47 that 


P,H? 
Tp = ae fi (3.51) 
Table 3.9 shows the results obtained for the relationship between 7g and mp for a range of number 
of nodes per edge of the domain (also number of internal points in each direction for the domain 
integration) from 3 to 241. The origin chosen for the particular integral function is the centre of the 


channel, at (2.5, 0.5). 


Nodes per Tp = —2 Tp = 0 Tp =2 Tp =4 
edge 

Exact 1g: 0.5914 0.4457 0.3000 0.1544 

3 0.6677 0.4271 0.1864 -0.0542 

7 0.6097 0.4430 0.2763 0.1095 

15 0.5958 0.4453 0.2948 0.1444 

31 0.5925 0.4457 0.2989 0.1521 

61 0.5917 0.4457 0.2998 0.1538 

121 0.5915 0.4457 0.3000 0.1543 

241 0.5914 0.4457 0.3000 0.1544 


Table 3.9 Dimensionless flow rates for H/W = 0.2 
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For the Laplace case (7p = 0) the convergence with mesh refinement is good, with three significant 
figure accuracy being obtained at 15 nodes per edge, four figures at 31 nodes per edge. This is because 
the velocity distribution is simple with, at least at the centre of the channel width, an essentially linear 
variation from bottom to top. With a pressure gradient, which changes the velocity profile from nearly 
linear to much more parabolic, there are more rapid changes in velocity near the top and bottom edges, 
which are somewhat more difficult to analyse. Nevertheless four significant figure accuracy is obtained 
by the time mesh refinement reaches 241 nodes per edge. The only parameter being assessed is the flow 
rate which is obtained by integration, a smoothing process, and therefore less subject to roundoff errors 


than individual values of velocity. 


It is worth noting what happens at the top corners of the channel, the points labelled 3 and 4 in Figure 3.5. 
There the potential boundary condition is discontinuous, from the fixed sides of the channel to the moving 
top surface. Treatment of the corner points in general requires some care. Using constant boundary 
elements this is not an issue, because no node is located at any corner point, the nearest ones being at 
the centres of the elements which meet at the corner. This is not the case with higher-order elements 


such as quadratic, which are the subject of the next chapter. 


Problems 


3.1 A viscous liquid flows in a pipe of circular cross-section under the action of a pressure gradient. 
The pipe has an internal diameter of 150 mm, the viscosity of the fluid is 9.5 Ns/m? and the 
pressure gradient is 120 kN/m*. Use program BEM2PC to compute the maximum velocity, to 
an accuracy of three significant figures. Compare this result with the exact analytical solution 
to the problem. Take advantage of the axial symmetry of the problem to analyse a 30° slice of 


the cross-section, and compare the results. 


3.2 The pipe in Problem 3.1 is changed from circular to elliptical cross-section with minor and major 
axes of 150 and 300 mm. Using program BEM2PC to analyse the entire cross-section, compute 


the maximum velocity, to an accuracy of three significant figures. 


3.3 The pipe in Problem 3.1 is changed from circular to isosceles triangular cross-section with a base 
length of 150 mm and a height of 150 mm. Use program BEM2PC to compute the maximum 


velocity, to an accuracy of three significant figures. 
3.4 Use program BEM2PC to find the torsional stiffness of a steel bar whose uniform cross-section 


is rectangular, with dimensions 60 mm by 30 mm. Take the shear modulus for steel to be 79.6 
GN/m’. 
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3.5 


3.6 


3.7 


3.8 


3.9 


An electrical conductor having a square cross-section 25 mm by 25 mm carries a heavy current 
which results in a uniform heat generation within the metal of 16 MW/m’. The conductor is 
made of copper, with a thermal conductivity of 295 W/m°C. Use program BEM2PC to find 
the maximum temperature at the surface of the copper, and the rates of heat transfer at the 
uninsulated faces: (a) when three faces of the conductor are thermally insulated and the fourth 
is cooled to a temperature of 25°C, (b) when two adjacent faces of the conductor are thermally 


insulated and both the other two faces are cooled to 25°C. 


Repeat Problem 3.5 for a conductor of circular cross-section of 25 mm diameter, with its outer 
surface cooled to 25°C, finding the maximum temperature within the copper and the total rate 


of heat transfer at its surface. 


A long thick-walled cylinder has external and internal diameters of 150 mm and 75 mm, 
respectively. The material of the cylinder has a thermal conductivity of 0.35 W/m°C. Heat 
is generated within the body of the material at a rate of 12 kW/m’. The outer surface of the 
cylinder is thermally insulated, and the inner surface is cooled. Use program BEM2PC to find 
the maximum temperature in the cylinder and the rate of heat transfer to the coolant when (a) 
the inner surface is cooled to a uniform temperature of 40°C, (b) when the coolant temperature 


is 25°C and the heat transfer coefficient at the inner surface is 15 W/m7°C. 


A steel conductor has a rectangular cross-section with three circular cooling passages running 
through it. In terms of Cartesian co-ordinates in the plane of the cross-section, and in mm 
units, the corners are at (0, 0), (100, 0), (100, 80), (0, 80). The first hole is 15 mm radius with its 
centre at (30, 40). The second hole is 10 mm radius with its centre at (80, 20). The third hole is 
10 mm radius with its centre at (70, 60). The surface temperature of all three holes is 10°C. If the 
rectangular outer surface is exposed to a fluid with a temperature of 150°C and the surface heat 
transfer coefficient is 250 W/m”C, use program BEM2PC to find the maximum temperature 
on the outer surface of the conductor and the rates of heat transfer into each of the three holes. 
Take the thermal conductivity of steel to be 50 W/m°C. 


Problem 1.2 refers to the problem of a thin membrane under lateral pressure and gives the 
governing partial differential equation. A thin membrane is stretched over a frame which is 
trapezoidal in shape. In metre units the four corners of the trapezium can be defined in terms 
of Cartesian co-ordinates in its plane of (0, 0), (1.2, 0), (1.2, 0.6), (0, 1.2). The lateral pressure 
is p = 50 N/m’ and the uniform tensile force in the membrane is S = 72 N/m. Use program 


BEM2PC to find the magnitude and location of the maximum deflection of the membrane. 
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3.10 Problem 1.3 introduces the problem of water seepage through porous rock underneath a concrete 
dam, and is concerned with the governing equation and its boundary conditions. A dam which 
is 10 m thick at its base can be modelled as being built on a flat plane of rock. It retains water to 
a depth of 15 m. If the permeability of the rock is k = 2 x 1071 m*/Ns (see Equations 1.58), 
use program BEM2PC to estimate the rate of seepage flow under the dam. 
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4 Quadratic Boundary Element 
Program for Potential Problems 


In this chapter a Fortran computer program to implement the quadratic boundary element formulation 
for two-dimensional potential problems developed in Chapter 2 is presented and described in detail. It 
is then used to solve a range of problems to demonstrate the capabilities of the method, including those 


solved using constant boundary elements described in Chapter 3. 
For readers who prefer to use Matlab, a translation is provided in Appendix D. 


As far as possible the program structure, filenames, variable names, and actual coding follow those used in 
the constant element program. In terms of programming, there are several important differences between 
constant and boundary elements. Firstly, analytical integration is replaced by Gaussian quadrature, which 
requires more coding. Secondly, with quadratic elements there is no longer a one-to-one correspondence 
between nodes and elements: under some circumstances the focus has to be on elements, under others on 
nodes. Thirdly, using quadratic elements, nodes are placed at the corners of solution domains, which is a 
benefit in terms of accuracy but is a complication in terms of programming. For example, the direction 
of the normal to the boundary of a solution domain is not uniquely defined at a corner, something that 


was not an issue with constant elements. 


The principle adopted in programming the quadratic element analysis is to try to make the coding 
straightforward to understand and follow, rather than necessarily the most efficient in terms of 
computation. A good example of this occurs in the integration of the kernel function products over an 
element to form the coefficient matrices (in subprogram INTKER). As programmed, the outer DO loop 
is for the nodes of the element, and the inner one for the Gauss points. Interchanging these substantially 
reduces the number of times the Jacobians and normals at the Gauss points have to be re-computed, 


but the program is less clear. 


4.1 Program BEM2PQ 


The program name indicates that it is for boundary element method analysis of two-dimensional potential 
problems using quadratic elements. Each of the subprogram units which make up the whole are described 


in turn. The Preface explains how the full program can be accessed as a single file. 
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As with program BEM2PC, much of the coding is concerned with the definition of the arrangement 
of elements on the boundary (or boundaries) of the solution domain, and the application of boundary 
conditions to them. Again, entering the co-ordinates of the nodes of each and every element, followed 
by the type and magnitude of the relevant boundary condition applied to each is an option, but tedious. 
Instead, each boundary can be divided up into a series of boundary segments, which are either straight 
lines or circular arcs. The number of elements within a segment can then be chosen, and varied easily, 
and from which the program generates all the element geometric data. The elements on a segment do not 
have to be uniform in size, but can be varied in length by a constant ratio between successive elements. In 
the present version of the program, each segment is subject to only one uniform boundary condition, be 
it prescribed potential, prescribed potential gradient, or prescribed mixed condition connecting potential 
and potential gradient. The program distributes this condition to all the elements involved. Consequently, 
the ends of segments are conveniently defined as points where there is a significant change in either shape 


(a corner, for example) or boundary condition. Use of this facility is demonstrated later in this chapter. 


4.1.1 Main program 


At the beginning of the program is a storage module named SHAREDDATA2PQ which allows stored data 
to be accessed and shared by all those subprograms that require it (by means of a USE statement). The 
dimensioned array sizes in the module allow for up to 500 quadratic boundary elements with 1000 nodes, 
with up to 10 different boundaries forming the solution domain. The maximum number of linear equations 


to be solved is 1000. A dictionary of the variable names used is provided at the beginning of the book. 


The Wake 


the only emission we want to leave behind 


Low-speed Engines Medium-speed Engines Turbochargers Propellers Propulsion Packages PrimeServ 


The design of eco-friendly marine power and propulsion solutions is crucial for MAN Diesel & Turbo. 
Power competencies are offered with the world’s largest engine programme — having outputs spanning 
from 450 to 87,220 kW per engine. Get up front! 

Find out more at www.mandieselturbo.com 


Engineering the Future — since 1758. 


MAN Diesel & Turbo 


Download free eBooks at bookboon.com Yeoy 


140 


Boundary Element Methods for Engineers: 


t |: F 


Da 
ra 


otential Problems Quadratic Boundary Element Program for Potential Problems 


The main program named BEM2PQ is designed mainly to call each of the other subprograms in turn. It 
does, however, also serve to name the files with which the program communicates via OPEN statements. 
File DATA, which is addressed as file number 5 in the program, serves to supply the input data which 
defines the current problem. The main output of results is to file RESULTS, addressed as file number 
6. Element mesh data, on the other hand, are output to file MESHRES (mesh results) and numbered 7. 


MODULE SHAREDDATA2PQ 


! MODULI 


El 


STORING SHARED DATA. 


FAL :: X 


zr 
r. 


(END (510) , YEEND (510) , XNODE (1000) , YNODE (1000) 
ND (500) , UNX (1000) , UNY (1000) 


BAL :: UNMX(500,3),UNMY (500,3),DPSIPIM(500, 3) 


ea 


BAL :: XSEND(500),YS 


EAL :: F1,XC,YC,PS1I(1000),DPSI(1000) ,ALPHA(500) ,BETA(500) 
EAL :: ALPHAN(1000) ,BETAN (1000) 


BAL :: PSISEG(500),DPSISEG(500),ALPHASEG (500) , BETASEG (500) 
00),PSIT (1000) 
DPSIT (1000) , FLOWSEG (500) , ANGSTORE (510) 


EAL :: STORE(500),PSIPI(1000),DPSIPI (10 


HHeHH He DDD DDD DDD Dw 
[tT] 
> 


BAL :: PI,A(1000,1001),AROW(500,3),BROW(500,3) ,MAXL 

EAL :: ZG(8),WG(8),EGL(8),WGL(8) , JACOB, UNGX, UNGY 

EAL :: SF(3,8),SD(3,13),SFL(4,3,8),SDL(4,3,8) 

NTEGER NEL, NNP, MAXNEL, MAXNNP, MAXNB, NEEND, NGAUSS 

NTEGER NODE (500, 3) ,M1 (500) ,M3 (500) 

NTEGER :: NBOUND,NSEGTOT, NELB (10) ,NSEGB (10) 

NTEGER NBCP, NBCD, NBCM, NBCT, IBCE (500) , IBCN(1000) , ISEGBC (500) 
NTEGER ISEGEND (500) , ISEGELEM (500) ,MFIRST (500) ,MLAST (500) 
END MODULE SHAREDDATA2PQ 

PROGRAM BEM2PQ 


! PROGRAM FOR SOLVING TWO DIMENSIONAL POTENTIAL PROBLEMS BY THE BOUNDARY 


! ELEMENT METHOD USING QUADRATIC ELEMENTS. 


USE SHAREDDATA2PQ 


OPEN (5, FILE="DATA") 
OPEN (6, FILE="RESULTS") 


OPEN (7, FILE="MESHRES") 
PI=4.0*ATAN(1.) 


r. 


! DEFINE THE MAXIMUM PROBLEM SIZE PERMITTED BY THE ARRAY DIMENSIONS. 


MAXNEL=500 


MAXNNP=1000 
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MAXNB=10 


Quadratic Boundary Element Program for Potential Problems 


! INPUT THE PROBLEM TITLE AND TYPE. 


! INPUT AND GENE 


r 


r 


Gl 


CALL INTITLI 


ea 


RATE THE MESH DATA. 


CALL MESHO 


! OUTPUT THE MESH DATA. 


CALL MSHOUT 


! INPUT, PROCESS AND OUTPUT THE BOUNDARY CONDITIONS. 


CALL BCS 


! AT THE GAUS 


! EVALUATE AND STORE VALUES OF TH 
S 


CALL SHAP 


Gl 


a5 


Gl 
n 


SHAPE FUNCTIONS AND THEIR DERIVATIV. 


r. 


POINTS AND NODES. 


! IF GOVERNING EQUATION IS POISSON TYPE, MODIFY THE BOUNDARY CONDITIONS. 


CALL POISSON 


! FORM THE COEFFICIENT MATRIX AND APPLY THE BOUNDARY CONDITIONS. 


zr 


CALL FRMTRX 


! SOLVE THE LINEAR EQUATIONS. 


61 


! OU 
! ALSO POT! 


MAXNNPP1=MAXNNP+1 


CALL ELIMIN (A, PSI,NNP,MAXNNP,MAXNNPP1, IFLAG) 


IF(IFLAG == 
WRITE (6, 61) 


1) THEN 


FORMAT (/ "MATRIX ILL-CONDITIONING DETECTED IN EQUATION SOLVER") 


STOP 
END IF 


CALL OUTPUT 


eal 


TPUT NODAL POINT VALUES OF POTENTIAL AND POTENTIAL GRADIENT, 


ENTIAL FLOWS ACROSS BOUNDARY SEGMENTS. 


! COMPUTE VALUES OF POTENTIAL AT INTERNAL POINTS. 


CALL INTERNAL 


STOP 
END PROGRAM 


BEM2 PQ 
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After defining the maximum numbers of boundary elements (MAXNEL), nodes (MAXNNP) and 
boundaries (MAXNB) permitted by the array dimensions, the main program calls the following 


subprograms in turn: 


INTITLE for the problem title, 

MESHQ to input and create the mesh data, 

MSHOUT to write out the mesh data, BCS for the boundary conditions, 

BCS for the boundary conditions, 

SHAPE for defining the element shape functions, 

POISSON to compute the particular integral if the problem is of the Poisson type, 
FRMTRX to define the [A] and [B] coefficient matrices, 

ELIMIN to solve the equations, 

OUTPUT to write out the results, and finally 

INTERNAL to find values of potential at any desired point within the domain. 


As in program BEM2PC, the matrix ill-conditioning warning is most likely to be triggered by trying to 
solve a poorly defined problem, such as one with only potential gradient or mixed boundary conditions, 


and potential nowhere defined. 
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tic Boundary Element Program for Potential Problems 


4.1.2 Subprogram INTITLE 


An alphanumeric title for the problem is first read into TITLE. Next the constant value of function 
(Equation 2.1) is read into F1. If this value is zero the problem is of the Laplace type, and an appropriate 
message is written out. If it is not zero the problem is Poisson type and the global co-ordinates of the 
origin used to define to particular integral are read into XC and YC, normally chosen to be roughly at 


the centre of the domain. The value of together with the origin co-ordinates are then written out. 


r. 


SUBROUTINE INTITL 


El 


Tr. 


! SUBPROGRAM TO INPUT PROBLEM TITLE AND TYPE (LAPLACE OR POISSON). 


USE SHAREDDATA2 PQ 


CHARACT! 


Gl 


R(80) :: TITL 


Gl 


! INPUT THE PROBLEM TITLE. 


READ (5, FMT="(A80)") TITLI 


EA 


WRITE(6,61) TITL 


EA 


61 FORMAT ("QUADRATIC BOUNDARY ELEMENT SOLUTION FOR", 


& " TWO DIMENSIONAL POTENTIAL PROBLEM" // A) 


= 


! INPUT THE VALUE OF THE (CONSTANT) Fl FUNCTION IN THE GOVERNING 
! EQUATION. 


READ(5,*) Fl 


IF(F1l == 0.) WRITE(6, 62) 
62 FORMAT (/ "LAPLACE EQUATION") 
IF(Fl /= 0.) THEN 
WRITE(6,63) Fl 
63 FORMAT (/ "POISSON EQUATION, Fl = ",E12.4," CONSTANT") 


! INPUT THE COORDINATES OF THE ORIGIN FOR THE PARTICULAR INTEGRAL. 


z= 


READ (5,*) XC,YC 


WRITE (6,64) XC,YC 


64 FORMAT (/ "ORIGIN FOR PARTICULAR INTEGRAL:",5X,"X =",E12.4,5X, 
& "y =",B12.4) 
END IF 
! 
RETURN 
END SUBROUTINE INTITLE 
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4.1.3 Subprogram to input and generate the element mesh data 


Subprogram MESHQ reads in a minimal amount of information from which to create the mesh of 
quadratic boundary elements. The process is complicated by the fact that there are several levels of 
geometric features. Firstly, boundaries: there will be more than one for a multiply-connected domain, 
with internal holes within the outer boundary. Secondly, segments of boundaries whose ends are located 
at changes of either geometry or boundary condition, and can be either straight or follow circular arcs. 
Thirdly, the ends of elements which are distributed either uniformly or non-uniformly along the segments. 


Finally, the nodes of the elements, which are located at the element end points and mid points. 


SUBROUTINE 


< 


E SHO 


! SUBPROGRAM TO READ IN AND G 


r. 


INERATE THE GEKEOMETRIC DATA FOR A MESH OF 


! QUADRATIC ELEMENTS. 


r 


USE SHAR 


‘DDATA2 PQ 


! INPUT THE NUMBER OF SEPARATE BOUNDARIES. 


READ (5,*) NBOUND 


! TEST THE NUMB 


I 


‘R OF BOUNDARIES. 


IF(NBOUND < 1 .OR. NBOUND > MAXNB) THEN 


WRITE (6,61) NBOUND, MAXNB 


61 FORMAT (/ "NBOUND =",14,2X,"OUTSIDE 


U 


ERMITTED RANGE 1 TO",14) 


STOP 


eal 


ND IF 


! FOR EACH BOUNDARY IN TURN INPUT THE 


r. 


NUMBER OF SEGMENTS. 


Each boundary in turn: DO IBOUND=1,NBOUND 
NELB (IBOUND) =0 
MMINB=MMAXB+1 


READ (5,*) NSEGB(IBOUND) 


NSEGTOT=NSEGTOT+NSEGB (IBOUND) 


! TEST THE NUMBER OF SEGMENTS. 


I 


IF(NSEGTOT < 1 .OR. NSEGTOT > MAXNEL) THEN 


WRITE (6,62) NSEGTOT,MAXNEL 
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62 FORMAT (/ "NSEGTOT =",16,2X,"OUTSIDE PERMITTED RANGE 1 TO",1I6) 
STOP 
END IF 


! INPUT THE CARTESIAN GLOBAL COORDINATES OF THE END POINTS OF TH 


Gl 


! SEGMENTS. TAKE THE END POINTS CONSECUTIVELY, KEEPING THE DOMAIN 


r. 


! TO THE LEFT OF THE DIRECTION OF NUMBERING. 


READ (5,*) (XSEND(ISEND) , YSEND (ISEND) , ISEND=1,NSEGB (IBOUND) ) 


! DEFINE THE FIRST END POINT ON THE CURRENT BOUNDARY. 


XEEND (IEEND) =XSEND (1) 


YEEND (IEEND) =YSEND (1) 


! FOR EACH OF THE SEGMENTS (BETWEEN ENDS 1 AND 2, 2 AND 3, ETC.) 


! INPUT THE RADIUS OF CURVATURE (+VE FOR CONVEX WITH CENTRE OF 


! CURVATURE INSIDE DOMAIN, -VE FOR CONCAVE), THE NUMBER OF 


E 


! ELEMENTS IN THE SEGMENT, AND THE LENGTH RATIO BETWEEN SUCCESSIVE 


! E 


{LEM 


= 


INTS IN THE DIRECTION OF NUMBERING. 


ISEGMAX=NSEGTOT 


SMS from your computer 
..oync'd with your Android phone & number 


Tas, Secor 06, 2082 EEE 


@ Me: Hi Ehas! 
Tra. Susana 8 IR VENESY | Anders Me: | am texting from my 
computer! :P 


ime 
Lam teatng from my computer QD 


Sate Yew. Cremer 06 2000 181727 ndrem McDon @ lias Naur: Oh... Coo® :) ; 


and start texting from | 
your computer! ; 


MacBook Pro | 


(...) BrowserTexting — 


Download free eBooks at bookboon.com 


146 Click on the ad to read more 


Boundary Element Methods for Engineers: 
Part I: Potential Problems Quadratic Boundary Element Program for Potential Problems 


ISEGMIN=ISEGMAX-NSEGB (IBOUND) +1 


Bach segment in turn: DO ISEG=ISEGMIN, ISEGMAX 


READ(5,*) RSEG, NELSEG, RATSEG 


! FIND AND TEST THE NUMBER OF ELEM 


I 


INTS SO FAR. 


ca | 
wD 
a 
Ww 
oO 
cy 
A, 
iw) 
ll 

a 
=) 


ELB (IBOUND) +NELSEG 


IF(NEL < 1 .OR. NEL > MAXNEL) THEN 


WRITE (6,63) NEL,MAXNEL 


63 FORMAT (/ "NEL =",16,2X,"OUTSIDE PERMITTED RANGE 1 TO",16) 


! FIRST AND LAST ELEMENTS ON CURRENT SEGMENT. 


MLAST (ISEG) =NEL 


MFIRST (ISEG) =NEL-NELSEG+1 


MMAXB=MMAXB+NELSEG 


! COORDINATES OF THE FIRST END POINT OF THE SEGMENT. 


IS! 


ND=ISEG-ISEGMIN+1 


E 


XFIRST=XSEND (ISEND) 


YFIRST=YSEND (ISEND) 


! COORDINATES OF THE LAST END POINT OF THE SEGMENT. 


r. 


ISEND=ISEND+1 


IF(ISEG == ISEGMAX) ISEND=1 


XLAST=XSE 


YLAST=YSE 


! GENERATE ELEMENT DATA FOR A STRAIGHT SEGMENT. 


IF(RSEG == 0.) THEN 


! DEFINE THE ELEMENT 


zr 


‘IND POINT COORDINATES ON THE SEGMENT. 


Each element in turn: DO M=1,NELSEG 


TEEND=IEEND+1 


ISEGEND (IEEND) =ISEG 


IF(RATSEG == 1.) THEN 
EEND (IEEND) =XFIRST+ (XLAST-XFIRST) *FLOAT (M) /FLOAT (NELSEG) 
EEND (IEEND) =YFIRST+ (YLAST-YFIRST) *FLOAT (M) /FLOAT (NELSEG) 
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IF(RATSEG /= 1.) THEN 


x 
Zz 
) 


(END) =XFIRST+ (XLAST-XFIRST) * (1.-RATSEG**M) 


& / (1.-RATSEG* *NELSEG) 


YEEND (IEEND) =YFIRST+ (YLAST-YFIRST) * (1.-RATSEG**M) 


& / (1. -RATSEG* *NELSEG) 


END DO Each element in turn 


! DEFINE THE ELEMENT NODES AND COORDINATES. 


TEEND=IEEND-NELSEG 


Each element in turn: DO IELSEG=1,NELSEG 


TEEND=IEEND+1 


M=MFIRST (ISEG) +IELSEG-1 


T1=2*M-1 

I2=I1+1 

I3=11+2 

IF(ISEG == ISEGMAX .AND. IELSEG == NELSEG) I3=NODE (MMINB, 1) 
NODE (M, 1)=I1 


NODE (M, 3) =13 
ISEGELEM (M) =ISEG 
IF(ISEG == ISEGMIN .AND. IELSEG == 1) THEN 
XNODE (11) =XEEND (IEEND-1) 
YNODE (11) =YEEND (IEEND-1) 
END IF 
XNODE (13) =XEEND (IEEND) 
YNODE (13) =YEEND (IEEND) 
XNODE (12) =0.5* (XNODE (11) +XNODE (T3) ) 
YNODE (12) =0.5* (YNODE (11) +YNODE (13) ) 
! 
! STORE THE NUMBERS OF THE ADJACENT ELEMENTS. 
M1 (M) =M-1 
M3 (M) =M+1 


END DO Each element in turn 


END IF 


! GENERATE ELEMENT DATA FOR A SEGMENT IN THE FORM OF A CIRCULAR ARC. 


r 


IF(RSEG /= 0.) THEN 
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! LOCATE THE CENTRE OF THE ARC. 


XMID=(XFIRST+XLAST) /2. 


YMID=(YFIRST+YLAST) /2. 


ALSEG=SOQRT ( (XLAST-XFIRST) **2+ (YLAST-YFIRST) **2) 


ALPERP2=RSEG* *2- (ALSEG/2.) **2 


IF (ABS (ALPERP2) < 1.E-6*RSEG**2) ALPERP2=0. 


IF(ALPERP2 < -1.E-6*RSEG**2) THEN 


WRITE (6,64) ISEG 


64 FORMAT (/ "DATA ERROR FOR SEGMENT NUMBER", 16, 
& / “NOT POSSIBLE TO CREATE A CIRCULAR ARC") 
STOP 
END IF 


ALPERP=SORT (ALPERP2) 


UVF LX= (XLAST-XFIRST) /ALSEG 


UVFLY= (YLAST-YFIRST) /ALSEG 


FACT=1. 
IF(RSEG < 0.) FACT=-1. 


XCENT=XMID-ALPERP*UVFLY* FACT 


YCENT=YMID+ALPERP*UVFLX* FACT 
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! FIND THE ANGLE SUBTENDED THERE BY THE SEGMENT. 


IF(ALPERP /= 0.) ANGSEG=2.*ATAN (ALSEG*0.5/ALP 


Gl 


RP) 


IF (ALPERP == 0.) ANGSEG=PI 


! DEFINE THE ELEMENT END POINT COORDINATES ON THE SEGMENT. 


ANGFIR=ATAN2 (YFIRST-YCENT, XFIRST-XCENT) 
ANGSTORE (IEEND) =0. 


ach element in turn: DO M=1,NELSEG 


ia] 


TEEND=IEEND+1 


ISEGEND (IEEND) =ISEG 


IF(RATSEG == 1.) ANG=ANGSEG* FLOAT (M) /FLOAT (NELSEG) 


IF(RATSEG /= 1.) ANG=ANGSEG* (1.-RATSEG**M) / (1.-RATSEG* *NELSEG) 


IF(RSEG < 0.) ANG=-ANG 


XEEND (IEEND) =XCENT+ABS (RSEG) *COS (ANGFIR+ANG) 


G 
YEEND (IEEND) =YCENT+ABS (RSEG) *SIN (ANGFIR+ANG) 


ANGSTORE (I 


r 


(END) =ANG 


END DO Each element in turn 


! DEFINE THE ELEMENT NODES AND COORDINATES. 


ITEEND=IEEND-NELSEG 


Each element in turn: DO IELSEG=1,NELSEG 


TEEND=IEEND+1 


M=MFIRST (ISEG) +IELSEG-1 


T1=2*M-1 


IF(ISEG == ISEGMAX .AND. IELSEG == NELSEG) I3=NODE (MMINB, 1) 


IF(ISEG == ISEGMIN .AND. IELSEG == 1) THEN 
XNODE (11) =XEEND (IEEND-1) 
YNODE (11) =YEEND (IEEND-1) 

END IF 


XNODE (13) =XEEND (IEEND) 


YNODE (13) =YEEND (IEEND) 


ANG=0 .5* (ANGSTORE (IEEND-1) +ANGSTORE 


as 
4 
+ 


‘END) ) 
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XNODE (12) =XCENT+ABS (RSEG) *COS (ANGFIR+ANG) 


YNODE (12) =YCENT+ABS (RSEG) *SIN (ANGFIR+ANG) 


= 


! STORE THE NUMBERS OF THE ADJACENT ELEMENTS. 


M1 (M) =M-1 


M3 (M) =M+1 


END DO Each element in turn 


END IF 


END DO Each segment in turn 


! ADJACENT ELEMENTS FOR END ELEMENTS OF THE BOUNDARY. 


Tr. 


M1 (MMINB) =MMAXB 
M3 (MMAXB) =MMINB 


END DO Each boundary in turn 


BEND=IBEND 


NP=NEL*2 


r. 


! DETERMINE THE MAXIMUM DIMENSION OF THE SOLUTION DOMAIN. 


MAXL=0. 
Each node in turn: DO I=1,NNP 


Each other node in turn: DO J=1,NNP 


DIST=SQRT ( (XNODE (1) -XNODE (J) ) **2+ (YNOD 


GI 


(I) -YNODE (J) ) **2) 


IF (DIST > MAXL) MAXL=DIST 


END DO Each other node in turn 


END DO Each node in turn 


RETURN 


END SUBROUTINE 


< 


E SHO 


The number of boundaries is first read into NBOUND. If there is more than one boundary the order of 
numbering is arbitrary. Then, for each boundary in turn, the number of segments forming the boundary 
is read into NSEGB, followed by the global co-ordinates of the segment end points taken consecutively 
into XSEND and YSEND. The starting point for defining segments on the boundary is arbitrary, but 
then the order of numbering must be such as to keep the domain on the left: anticlockwise for the outer 
boundary surrounding the domain, clockwise for a boundary defining a hole in the domain. Note that 
the first end point, which is an end of both the first and last segment, must only be defined once: the 
number of end points on a boundary is equal to the number of segments, and the program makes the 


connection to close the boundary. 
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Then, for each segment of the current boundary in turn, its radius of curvature, the number of elements 
on the segment, and the ratio between the lengths of successive elements on the segment are read into 
RSEG, NELSEG and RATSEG, respectively. A zero value of RSEG indicates a straight segment, while the 
sign of a non-zero value of RSEG indicates whether the part of the boundary defined by the segment is 
convex or concave. A positive radius indicates convex, with the centre of curvature inside the domain, 
while a negative value indicates concave, with the centre outside the domain. A unit value of RATSEG 
indicates a uniform distribution of elements along the segment, whether it be straight or curved. A value 
greater than one requires the lengths of successive elements to increase in the direction of segment end 


numbering, a value less than one requires a similar decrease. 
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The subprogram uses a number of housekeeping variables to keep track of various totals: IEEND stores 
the current element end point number, array NELB the number of elements on each boundary, and NEL 
the overall total number of elements. NSEGTOT stores the total number of segments, while MMINB and 
MMAXB contain the minimum and maximum element numbers (that is, first and last) on the current 
boundary. Similarly, ISEGMIN and ISEGMAX store the numbers of the first and last segments on the 
current boundary (the segment numbering runs sequentially from one boundary to the next), while 
MFIRST and MLAST do the same for elements on the current segment. Note that wherever possible tests 
are applied (and warning messages given) to check that array dimensions are not going to be exceeded. It 
is also worth noting that arrays concerned with segments are given the same dimensions (500, in module 
SHAREDDATA2PQ) as those for elements. This is to give the user the freedom to define the geometry 
and boundary condition of each element individually, by making each segment contain only one element. 
Arrays associated with element ends are actually given dimensions of 510. This is because due to the way 
element end point co-ordinates are defined it is convenient to have the last point on a boundary distinct 
from the first point, whose co-ordinates it shares. This means that the number of element end points 


on a boundary is one more than the number of elements, and there could be as many as 10 boundaries. 


The subprogram stores the co-ordinates of the first and last element end points on the current segment and 
then defines the element end point co-ordinates, storing in XEEND and YEEND. Note that the segment 
number associated with a particular element end point is stored temporarily in array IEGEND. Once 
the element data have been generated this information is transferred from ISEGEND to ISEGELEM, 
the segment number associated with each element. This information will be required later in the final 
output of results, when the segment number for each element is required for calculating potential flows 


across the various segments. 


For a straight segment the element end point co-ordinates, whether for elements of uniform length or 
varying in length by a constant ratio, are generated exactly as described in Section 3.1.3 for the constant 
element program. The first and third nodes of an element are the element ends, and the second node 
is at the middle of the straight line joining these ends. Element node numbers are stored in the two- 
dimensional array NODE, the first subscript indicating the element number, the second subscript the 
number of the node within the element (first, second or third). The global co-ordinates of the nodes 
are stored in XNODE and YNODE. 


For a segment in the form of a circular arc, the element data are again generated exactly as described in 
Section 3.1.3, with the first and third nodes of an element taken as the element ends. The second node 
is at the centre of the part of the segment arc connecting the end nodes. The numbers of the elements 
immediately adjacent to a particular element, whether straight or curved, need to be known, and are 
stored in arrays M1 for the element sharing the first node, and M3 for the element sharing the third 
node. Care has to be taken with the elements which meet at the first node on any boundary, the adjacent 
elements there being each other. The reason for storing this information is that it will be needed when 


dealing with adjacent elements having different boundary conditions applied. 
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Finally, the maximum dimension (MAXL) of the 


between any pair of nodal points, for subsequent 


4.1.4 Mesh data output subprogram 


The subprogram MSHOUT serves to write out 


Problems 


solution domain is found as the maximum distance 


use in scaling as described in Section 2.6. 


the geometric data for the mesh to file MESHRES. 


Following the number of elements and number of nodes, the co-ordinates of the nodes are written out. 


Then the node numbers of the elements, two sets to a line. 
SUBROUTINE MSHOUT 
| 
!  SUBPROGRAM TO WRITE OUT THE MESH DATA. 
| 
USE SHAREDDATA2PQ 
| 
! OUTPUT THE NUMBERS OF ELEMENTS AND NODES, ALSO THE NODAL 
! COORDINATES. 
WRITE (7,71) NEL,NNP, (I,XNODE(I),YNODE(I) ,I=1,NNP) 
71 FORMAT (/ "GEOMETRIC DATA FOR THE MESH" // 
& 10X,"NUMBER OF ELEMENTS =",16 // 
& 10X,"NUMBER OF NODAL POINTS =",16 // 
& "COORDINATES OF THE NODAL POINTS"// 
& 2(" I x Y se a 
& 2(16,2E12.4)) 
| 
! OUTPUT THE ELEMENT NODE NUMBERS. 
WRITE(7,72) (M, (NODE (M, IN), IN=1,3),M=1,NEL) 
72 FORMAT (/ 'ELEMENT NODE NUMBERS! // 
& 1X,2(10X,'M NDL ND2 ND3')/ (2(7X,415))) 
| 
! SCALE THE NODAL POINT COORDINATES. 
Each node in turn: DO I=1,NNP 
XNODE (I) =XNODE (I) /MAXL 
YNODE (I) =YNODE (I) /MAXL 
END DO Each node in turn 
| 
RETURN 
END SUBROUTINE MSHOUT 


Finally, the co-ordinates of the nodes are scaled u 
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sing the maximum dimension of the domain. 


4.1.5 Subprogram for applying the boundary conditions 


The subprogram BCS serves to apply boundary conditions of either the prescribed potential, prescribed 
potential gradient, or mixed (linear relationship between potential and potential gradient) types. As 
already indicated, it is assumed that each segment of elements has a uniform boundary condition applied 
to it, which is an important consideration when defining the segments. The total numbers of segments 
subject to the three types of condition are first read into variables NBCP, NBCD and NBC, respectively. 
In the case of prescribed normal derivative (gradient) it is only necessary to include those segments subject 
to non-zero gradient. Storage arrays including ALPHA and BETA for the mixed boundary condition are 
set to zero for each nodal point. Array IBCE stores the type of boundary condition (1, 2 or 3 for three 
types) for each element. In the absence of other information, the condition for an element is assumed to 
be zero potential gradient. This is perhaps the most common single condition encountered in practice, 
for example on a line of symmetry, a thermally insulated boundary in a heat conduction problem, or an 
impermeable boundary in a fluid mechanics problem. The default boundary condition type is therefore 


set as 2, with the corresponding zero value of gradient for the elements being stored in array STORE. 


SUBROUTIN 


Gl 


BCS 


! SUBPROGRAM TO INPUT, PROCESS AND OUTPUT THI 


Eel 


BOUNDARY CONDITIONS. 


c 
n 
n 
a] 
> 
ve) 


iDDATA2 PQ 


r. 
r 


! INPUT THE NUMB 


IRS OF SEGMENTS SUBJECT TO EACH TYPE OF BOUNDARY 


! CONDITION. 


| NBCP - PRESCRIBED POTENTIAL. 


! NBCD - NON-ZERO PRESCRIBED NORMAL DERIVATIVE OF POTENTIAL. 


r. 


! NBCM - MIXED BOUNDARY CONDITION. 


! ANY SEGMENT NOT INCLUDED IS ASSUMED TO BE SUBJECT TO A ZERO 


! NORMAL DERIVATIVE OF POTENTIAL. 


E 


READ (5,*) NBCP,NBCD,NBCM 


! TEST THESE BOUNDARY CONDITION NUMBERS. 


NBCT=NBCP+NBCD+NBCM 


IF(NBCP < 0 .OR. NBCP > MAXNEL .OR. NBCD < 0 .OR. NBCD > MAXNEL 


& -OR. NBCM < 0 .OR. NBCM > MAXNEL .OR. NBCT < 0 .OR. 


& NBCT > MAXNEL) THEN 


WRITE (6,61) NBCP,NBCD,NBCM, NBCT, MAXNEL 


61 FORMAT (/ "NBCP =",16,3X,"NBCD =",16,3X,"NBCM =",16 


& / “NBCT =",16,3X,"OUTSIDE PERMITTED RANGE 0 TO", 16) 
STOP 
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r 


! INITIALISE THE BOUNDARY CONDITION STORAGE ARRAYS. 


Each element in turn: DO M=1,NEL 


END DO Each element in turn 


INTIAL BOUNDARY CONDITIONS. 


25 


! INPUT, STORE AND OUTPUT THE PRESCRIBED POT 


IF(NBCP > 0) THEN 
READ (5,*) (ISEGBC(IBCP),PSISEG(IBCP) , IBCP=1,NBCP) 


WRITE (6, 62) 
62 FORMAT (/ “PRESCRIBED POTENTIAL BOUNDARY CONDITIONS") 


Bach segment with prescribed potential: DO IBCP=1,NBCP 


ISEG=ISEGBC (IBCP) 


ia 
Z 


IF(ISEG < 1 .OR. ISEG > NSEGTOT) TH 


WRITE (6,63) ISEG,NSEGTOT 


ERMITTED RANGE 1 TO",1I6) 


tu 


63 FORMAT (/ "ISEG = ",16,2X,"OUTSIDE 


> Apply now 
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END IF 


Each element on current segment: DO M=MFIRST(ISEG) ,MLAST (ISEG) 


IBCE (M) =1 


STORE (M) =PSISEG (IBCP) 


END DO Each element on current segment 


WRITE (6,64) PSISEG(IBCP) ,MFIRST (ISEG) ,MLAST (ISEG) 


64 FORMAT(/ “POTENTIAL =",E12.4,5X,"ON ELEMENTS ",16,5X,"TO ",I6) 


END DO Bach segment with prescribed potential 


a 
Z 


D IF 


! INPUT, STORE AND OUTPUT THE PRESCRIBED POTENTIAL GRADIENT BOUNDARY 


IF(NBCD > 0) THEN 


READ (5,*) (ISEGBC (IBCD) , DPSISEG(IBCD) , IBCD=1,NBCD) 


WRITE (6, 65) 


65 FORMAT (/ "PRESCRIBED POTENTIAL GRADIENT BOUNDARY CONDITIONS") 


Bach segment with prescribed potential gradient: DO IBCD=1,NBCD 


ISEG=ISEGBC (IBCD) 


IF(ISEG < 1 .OR. ISEG > NSEGTOT) THEN 


WRITE (6,63) ISEG,NSEGTOT 


STOP 


ea 


ND IF 


Each element on current segment: DO M=MFIRST(ISEG) ,MLAST (ISEG) 
BCE (M) =2 


I 
STORE (M) =DPSISEG(IBCD) 


END DO Each element on current segment 


WRITE (6,66) DPSISEG(IBCD) ,MFIRST (ISEG) ,MLAST (ISEG) 


66 FORMAT (/ "GRADIENT =",E12.4,5X,"ON ELEMENTS ",16,5X,"TO ",16) 


END DO Each segment with prescribed potential gradient 


! INPUT, STORE AND OUTPUT TH 


r. 


MIXED BOUNDARY CONDITIONS. 


! ASSUMED FORM - DPSI=ALPHA*PSI+BETA. 


IF(NBCM > 0) THEN 


READ (5,*) (ISEGBC (IBCM) , ALPHASEG (IBCM) , BETASEG (IBCM) , IBCM=1, NBCM) 


WRITE (6, 67) 


67 FORMAT (/ "PRESCRIBED MIXED BOUNDARY CONDITIONS") 


Each segment with prescribed mixed condition: DO IBCM=1,NBCM 
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ISEG=ISEGBC (IBCM) 


IF(ISEG < 1 .OR. ISEG > NSEGTOT) THEN 


WRITE (6,63) ISEG,NSEGTOT 


STOP 
END IF 


Each element on current segment: DO M=MFIRST(ISEG) ,MLAST (ISEG) 


IBCE (M) =3 


ALPHA (M) =ALPHASEG (IBCM) 


BETA (M) =BETASEG (IBCM) 


Each element node in turn: DO IN=1,3 


I 
ALPHAN (I) =ALPHA (M) 
B 


ETAN (I) =BETA (M) 


DO Each element node in turn 


DO Bach element on current segment 


WRITE (6, 68) ALPHASEG (IBCM) , BETASEG (IBCM) ,MFIRST (ISEG) , MLAST (ISEG) 


68 FORMAT (/ “ALPHA =",E12.4,2X,"BETA =",E12.4,2X, 


& "ON ELEMENTS ",13,2X,"TO ",I3) 


END DO Each segment with prescribed mixed condition 


a 
Z 


D IF 


! ASSEMBLE THE VECTOR OF KNOWN VARIABLES, SCALING ANY PRESCRIBED GRADIENTS. 


Each node in turn: DO I=1,NNP 
DPSI(I)=0. 


END DO Each node in turn 


Each element in turn: DO M=1,NEL 


Each element node in turn: DO IN=1,3 


I=NODE (M, IN) 


IBCN (I) =IBCE (M) 


! CHECK THE CONDITION APPLIED TO THE ADJACENT ELEMENT FOR AN ELEMENT END 


! NODE. IF THE CONDITION IS PRESCRIBED POTENTIAL BUT THE EXISTING 


! CONDITION AT THE NODE IS NOT, THEN IMPOSE PRESCRIBED POTENTIAL. 
MADJ=M 
IF(IN == 1) MADJ=M1 (M) 
IF(IN == 3) MADJ=M3 (M) 
IF(IBCE(MADJ) == 1 .AND. IBCN(I) /= 1) IBCN(I)=1 
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! STORE KNOWN VARIABLE. 


F(IBCN(I) == 1) THEN 
F(IBCE(M) == 1) THEN 
IF(DPSI(I) == 0.) DPSI(1I)=STORE (M) 


IF(DPSI(I) /= 0.) DPSI(1I)=0.5* (DPSI (I) +STORE (M) ) 


END IF 
END IF 
IF(IBCE(M) == -AND. IBCN(I) == 2) DPSI(1I)=STORE (M) *MAXL 
IF(IBCE(M) == -AND. IBCN(I) == 3) DPSI(1I)=BETA(M) *MAXL 


END DO Each element node in turn 


END DO Each element in turn 


RETURN 


END SUBROUTINE BCS 


For each segment over which potential is prescribed, the segment number and value of potential are read 
into ISEGBC and PSISEG, respectively. Taking each of these segments in turn, the elements have their 
boundary condition type set to 1 (in array IBCE), and the value of potential is transferred temporarily 
to array STORE. The prescribed potential and numbers of the elements to which it is applied are then 


written out. 
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For each segment over which potential gradient is prescribed, the segment number and value of potential 
gradient are read into ISEGBC and DPSISEG, respectively. Taking each of these segments in turn, the 
elements have their boundary condition type set to 2 (in array IBCE), and the value of potential gradient 
is transferred temporarily to array STORE. The prescribed potential gradient and numbers of the elements 


to which it is applied are then written out. 


For each segment over which mixed boundary conditions prescribed, the segment number and values of 
the constants @ and f# (in Equation 2.32) are read into ISEGBC, ALPHASEG and BETASEG, respectively. 
Taking each of these segments in turn, the elements have their boundary condition type set to 3 (in 
array IBCE), and the values of boundary condition constants are transferred to element arrays ALPHA 
and BETA. Nodal point values of a and f are stored in arrays ALPHAN and BETAN. The constants 


and numbers of the elements to which the mixed boundary condition is applied are then written out. 


For each node in turn, the array DPSI is made to contain the known variable values: according to 
Equation 2.30 this is typically potential gradient (hence the use of array DPSI). In the more general 
form of Equation 2.31, however, it is either potential or potential gradient according to the boundary 
conditions. If potential is prescribed its value is transferred to DPSI from STORE. If potential gradient 
is prescribed, its value is similarly transferred from STORE and multiplied by MAXL, the maximum 
domain dimension. While mesh dimensions have already been scaled, gradient values have not. Potential 
is not affected by scaling because it does not involve dimensions of length. Potential gradients have the 
dimension of potential divided by length, so in order to be scaled must be multiplied by the length scale. 
If a mixed boundary condition is prescribed, the (unscaled) value of is transferred from STORE and 
multiplied by MAXL as the known variable (potential gradient) contribution, as described in connection 
with Equation 2.32. 


The last paragraph describes how boundary conditions determine what known variable information is 
stored for the majority of nodes. The only exceptions occur at the ends of segments, which may correspond 
to physical corners in the problem or may correspond only to changes in boundary conditions. Although 
there are three possible types of boundary condition: prescribed potential, prescribed potential gradient 
and mixed boundary conditions, the important distinction is between potential (prescribed potential) 
and gradient (prescribed potential gradient or mixed) types. It is only with the potential type that the 
known potential has to be moved from the left hand side to the right hand side of Equations 2.30 to 
give Equations 2.31. A node at which there is a change from potential to gradient boundary conditions, 
whether at a physical corner or not, presents a difficulty: which of the two boundary conditions takes 
precedence. In all cases the prescribed potential is chosen, which is why in the program there is a test 
for potential boundary condition on the current element, but gradient boundary condition at the current 
node (which can arise from the way the boundary conditions have been applied to the elements). The 


potential boundary condition type is imposed by setting the relevant value in array IBCN to 1. 
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If at a node linking two segments there is a change, not in boundary condition type (potential) but from 
one value of potential to another, it is appropriate to assign an average of the two values to the node and 
store this as the known variable for that node. This is achieved in the program by testing every node to 
see whether both the node and element boundary condition is of the potential type. If it is, the known 
variable is taken as the stored value of prescribed potential for the element if the known variable value 
is zero. This will apply to all element second nodes, and to all element end nodes which have not been 
tested in previous elements. If the known variable value is not zero, which can only occur if prescribed 
potential is applied to the immediately adjacent element and that conditions at the nodes of the element 
have already been tested, then the average of the present element value and the stored value is re-stored. 
This works both for adjacent elements with different values of potential and for the much more common 


case of adjacent elements with the same value prescribed: the common value is re-stored. 


This averaging process is really a detail to give a sensible value of potential in the output of the final 
results. What is really important is that the prescribed potential is applied element by element in forming 
the [b] column vector in Equations 2.31, so that each of the adjacent elements contributes according to 
its own prescribed potential. The same is true of adjacent elements with gradient boundary conditions: 
each should contribute to [b] according to its own value of prescribed potential or its own values of 


mixed condition parameters. This will be explained further in connection with subprogram FRMTRX. 


4.1.6 Subprogram for defining shape functions 


Subprogram SHAPE serves to define the shape functions and derivatives of shape functions at relevant 
values of the intrinsic co-ordinate of any quadratic element. The relevant values of € are primarily those 
at the points where functions have to be computed in order to apply Gaussian quadrature as described 
in Appendix A. These are referred to as the Gauss points. If the problem is of the Poisson type, shape 
function derivatives have also to be determined for the nodal point values of €. This is because the 
components of the unit normal vectors at the nodes are required to compute the effects of the particular 


integral function on the boundary conditions. 


SUBROUTINE SHAPE 


! SUBPROGRAM TO EVALUATE AND STOR 


r 


r. 


VALUES OF THE SHAPE FUNCTIONS AND 


25 


! THEIR DERIVATIVES, AT THE GAUSS POINTS AND NODES. 


USE SHAREDDATA2 PQ 


! STORI 


ES 


APPROPRIATE COORDINATES AND WEIGHT FACTORS FOR NORMAL GAUSSIAN 


r. 


! QUADRATURE IN ARRAYS XG AND CG, ALSO THOSE FOR LOGARITHMIC FUNCTION 


= 


! INTEGRATION IN XGL AND CGL. 
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NGAUSS=8 

ZG (1) =-0.9602898564 
ZG (2) =-0.7966664774 
ZG (3) =-0.5255324099 
ZG (4) =-0.1834346424 
ZG (5) =-2ZG (4) 

ZG (6) =-2ZG (3) 

ZG (7) =-2ZG (2) 

ZG (8) =-2ZG (1) 

WG (1) =0.1012285362 

WG (2) =0.2223810344 

WG (3) =0.3137066458 

WG (4) =0.3626837833 


WG (5) =WG (4) 
WG (6) =WG (3) 
WG (7) =WG (2) 
WG (8) =WG (1) 


EGL (1) =0.013320244 
EGL (2) =0.079750429 
EGL(3)=0.197871029 
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EGL (4) =0.354153994 
EGL(5)=0.529458575 
EGL (6) =0.701814530 
EGL (7) =0.849379320 
EGL (8) =0.953326450 
WGL (1) =0.164416605 
WGL (2) =0.237525610 
WGL (3) =0.226841984 
WGL (4) =0.175754079 
WGL (5) =0.112924030 
WGL (6) =0.057872211 
WGL (7) =0.020979074 
WGL (8) =0.003686407 


! NORMAL GAUSSIAN QUADRATURE. 


Gl 


For each Gauss point in turn: DO IGAUSS=1,NGAUSS 


ZETA=ZG (IGAUSS) 


SF (1, IGAUSS) =0.5*ZETA* (ZETA-1. ) 


SF (2, IGAUSS) =1.-ZETA**2 


SF (3, IGAUSS) =0.5*ZETA* (ZETA+1. ) 


D(1, IGAUSS) =ZETA-0.5 


S 
SD(2,IGAUSS) =-2.*ZETA 
S 


D(3, IGAUSS) =ZETA+0.5 


eal 


ND DO For each Gauss point in turn 


! FOUR CASES OF LOGARITHMIC GAUSSIAN QUADRATURE TO CONSIDER. 


eA 


! IC=1 - INTEGRATION OVER WHOLE ELEMENT FROM FIRST TO THIRD NODE. 


EA 


| IC=2 - INTEGRATION OVER HALF ELEMENT FROM SECOND TO THIRD NODE. 


EA 


! IC=3 - INTEGRATION OVER HALF ELEMENT FROM SECOND TO FIRST NODE. 


Gl 


| IC=4 - INTEGRATION OVER WHOLE ELEMENT FROM THIRD TO FIRST NODE. 


For each case in turn: DO IC=1,4 


For each Gauss point in turn: DO IGAUSS=1,NGAUSS 


ETA=EGL (IGAUSS) 


IF(IC == 1) ZETA=2.*ETA-1. 
IF(IC == 2) ZETA=ETA 

IF(IC == 3) ZETA=-ETA 

IF(IC == 4) ZETA=1.-2.*ETA 


SFL(IC,1, GAUSS) =0.5*ZETA* (ZETA-1.) 


SFL(IC,2, IGAUSS) =1.-ZETA**2 
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SFL (IC, 3, IGAUSS) =0.5*ZETA* (ZETA+1.) 


L(IC,1,IGAUSS) =ZETA-0.5 


SD 
SDL(IC,2, IGAUSS) =-2.*ZETA 
SDL(IC,3, IGAUSS) =ZETA+0.5 


DO For each Gauss point in turn 


D 
D DO For each case in turn 


1p) 
aa 
D> 
‘U 
eal 


FUNCTION DERIVATIVES AT THE NODES, STORED AS THOUGH THEY 


! ARE FOR GAUSS POINTS NUMBERED 11, 12 AND 13. 


Each element node in turn: DO IGAUSS=11,13 


IF(IGAUSS == 11) ZETA=-1. 
IF(IGAUSS == 12) ZETA=0. 
IF(IGAUSS == 13) ZETA=1. 


SD(1, IGAUSS) =ZETA-0.5 
SD(2, IGAUSS) =-2.*ZETA 


SD (3, IGAUSS) =ZETA+0.5 


END DO Each element node in turn 


RETURN 


END SUBROUTIN 


= 


SHAPE 


The values of € and the corresponding weighting factors w for normal Gaussian quadrature, as defined 
in Equations A.3, are first stored in arrays ZG and WG, respectively. For Gaussian quadrature applied to 
a function involving the singular logarithmic function, as defined in Equation A.4 and referred to here 
as logarithmic Gaussian quadrature, the values of intrinsic co-ordinate 7 and corresponding weights 


w, as defined in Equations A.5, are stored in arrays EGL and WGL, respectively. 


The shape functions N,(€), N2(€), and N3(é) are defined in Equations 2.50, 2.51 and 2.52. In 
subprogram SHAPE they are stored in array SF for each of the Gauss point values of ¢. SF is a two- 
dimensional array, the first subscript defining the shape function number, associated with one of the 
three nodes of an element, and the second subscript defining the Gauss point number. Similarly, the 
derivatives of the shape functions, defined in Equations 2.58, are stored in array SD. For normal Gaussian 


quadrature, the relevant values of € are the corresponding values of ZG. 
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For logarithmic Gaussian quadrature there are four different situations to be accommodated. The first is 
where logarithmic quadrature is to be applied to the whole element, treating the first node as the origin 
for 7. The second is for the half element between the second and third nodes, treating the second node 
as the origin. The third is for the half element between the second and first nodes, again treating the 
second node as the origin. The fourth is for the whole element, treating the third node as the origin. For 
these four cases, the relationships between intrinsic co-ordinates 7 and € are given by Equations 2.71, 
2.82, 2.89 and 2.94, respectively. Relevant values of 7 (ETA) are taken from EGL and converted into & 
, and the computed shape functions and derivatives stored in arrays SFL and SDL. Both of these arrays 
are three-dimensional, the three subscripts indicating case number (1 to 4), shape function number and 


Gauss point number. 


Finally, the shape function derivatives are computed for the nodal points of an element, where the values 
of € are -1, 0 and +1 for the first, second and third nodes. For convenience of storage in array SD, the 


nodes are considered to be the 11", 12" and 13" Gauss points. 


4.1.7 Subprogram for Poisson type problems 


In subprogram POISSON the particular integral contributions to potentials and potential gradients at 
the nodes are first set to zero. If the problem is of the Laplace type (indicated by a zero value of f, in 
Equation 2.1, stored in F1 in the program) control returns to the calling program. If the problem is of 
the Poisson type, then it is first necessary to compute the components of the unit normal vectors at the 
nodes (for use in Equation 2.109). In fact, it is only for Poisson type problems that the normals at the 


nodes (in addition to the Gauss points on the elements) are required. 


The method for finding normals is described in Section 2.5, and is part of the process of defining the 
Jacobian of transformation from global to local intrinsic co-ordinates which is carried out in subprogram 
JACOBI. The components of the unit normal at a point, in this case one of the nodal points (treated for 
storage purposes as effectively a Gauss point), are returned from JACOBI in variables UNGX and UNGY. 
They are then stored in the two-dimensional arrays UNMX and UNMY. These are element-oriented 
arrays with subscripts indicating element number and element node number. This means that at a node 
where the boundary is not smooth, data for two different normals are stored, associated with the two 


elements which meet at that node. 


SUBROUTINE POISSON 


Gl 


! MODIFY BOUNDARY CONDITIONS IF GOVERNING EQUATION IS POISSON TYPE. 


USE SHAREDDATA2PQ 


! INITIALISE THE PARTICULAR INTEGRAL ARRAYS. 


Each node in turn: DO I=1,NNP 


PSIPI(1I)=0. 
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DPSIPI(I)=0. 


END DO Each node in turn 


Each element in turn: DO M=1,NEL 
Each element node in turn: DO IN=1,3 
DPSIPIM(M, IN)=0. 

END DO Bach element node in turn 


END DO Each element in turn 


! UNIT NORMALS AT THE NODES ARE REQUIRED FOR PARTICULAR INTEGRAL 


= 


ERIVATIVES THERE. 


! FIRST FIND THE NORMALS AT THE ELEMENT NODES. 


Each element in turn: DO M=1,NEL 


Each element node in turn: DO IN=1,3 
IGAUSS=IN+10 

IT=1 

IC=1 

CALL JACOBI (M, IGAUSS, IT, IC) 

UNMX (M, IN) =UNGX 


UNMY (M, IN) =UNGY 
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END DO Each element node in turn 


END DO Each element in turn 


! MERGE ELEMENT NODE NORMALS TO FIND NORMALS AT TH 


Each node in turn: DO I=1,NNP 
UNX (I) =0. 
UNY (I) =0. 


END DO Each node in turn 


fl 
Es 


Each element in turn: DO M=1,N 


! FIRST NODE. 


I=NODE (M, 1) 


MADJ=M1 (M) 


! ICASE=1 BOTH CURRENT AND ADJACENT E 


a 


NODES. 


LEMENT HAVE EITHER PRESCRIBED 


| POTENTIAL OR PRESCRIBED GRADI 


ENT/MIXED BOUNDARY CONDITIONS. 


iD POTENTIAL, ADJACENT HAS 


r 


BED GRADIENT/MIXED CONDITION, 


ICASE= 
ICASE= 
ICASE=2 


ICASE=3 


! ICASE=2 CURRENT ELEMENT HAS PRESCRIBE 

| PRESCIBED GRADIENT/MIXED. 

! ICASE=3 CURRENT ELEMENT HAS PRESCRI 

| ADJACENT HAS PRESCRIBED POTENTIAL. 
IF(IBCE(M) == 1 .AND. IBCE(MADJ) == 1) 
IF(IBCE(M) /= 1 .AND. IBCE(MADJ) /= 1) 
IF(IBCE(M) == 1 .AND. IBCE(MADJ) /= 1) 
IF(IBCE(M) /= 1 .AND. IBCE(MADJ) == 1) 
IF(ICASE == 1) THEN 
UNX (1) =UNX (1) +UNMX (M, 1) 
UNY (1) =UNY (1) +UNMY (M, 1) 
END IF 


ea 
Zz 


F(ICASE == 2) TH 


I 
UNX (I) =UNMX (M, 1) 
UNY (1) =UNMY (M, 1) 


n 


ECOND NODE. 


EI 


I=NODE (M, 2) 
UNX (I) =UNMX (M, 2) 
UNY (I) =UNMY (M, 2) 


! THIRD NODE. 


I=NODE (M, 3) 
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MADJ=M3 (M) 
IF(IBCE(M) /= 1 .AND. IBCE(MADJ) /= 1) ICASE=1 
IF(IBCE(M) == 1 .AND. IBCE(MADJ) == 1) ICASE=1 
IF(IBCE(M) == 1 .AND. IBCE(MADJ) /= 1) ICASE=2 
IF(IBCE(M) /= 1 .AND. IBCE(MADJ) == 1) ICASE=3 
IF(ICASE == 1) THEN 
UNX (1) =UNX (1) +UNMX (M, 3) 
UNY (1) =UNY (1) +UNMY (M, 3) 
END IF 


fl 
Zz 


IF(ICASE == 2) TH 
UNX (I) =UNMX (M, 3) 
UNY (1) =UNMY (M, 3) 


END DO Each element in turn 


! FOR ELEMENT END NODES WITH ICASE=1, CONTRIBUTIONS TO TH 


Gl 


NORMALS 


r 


iRAGE 


! WILL HAVE COME FROM TWO ELEMENTS, EFFECTIVELY GIVING AV 


! (VECTOR SUM) NORMALS, BUT WHICH MUST NOW BE REDUCED TO UNIT 


! NORMALS. 
Each node in turn: DO I=1,NNP, 2 
ENOM=SQRT (UNX (1) **2+UNY (I) **2) 


D 
UNX (I) =UNX (I) /DENOM 
U 


NY (I) =UNY (I) /DENOM 


END DO Each node in turn 


! FIND AND STORE THE POTENTIAL AND POTENTIAL GRADIENT AT EVERY NOD 


EA 


! DUE TO THE PARTICULAR INTEGRAL. 


IF(F1l == 0.) RETURN 
XC=XC/MAXL 
YC=YC/MAXL 


F1=F1*MAXL**2 


Each node in turn: DO I=1,NNP 


XX=XNOD 


GI 


(I) -XC 


YY=YNOD 


iB 


(I) -YC 
PSIPI (1) =0.25*F1* (XX**2+YY**2) 
DPSIPI(1I)=0.5*F1* (XX*UNX (I) +YY*UNY (T) ) 


END DO Each node in turn 


! FIND AND STOR 


r 


THE POTENTIAL GRADIENT AT EVERY NODE OF EVERY 
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ELEMENT DUE TO THE PARTICULAR INTEGRAL. 


Each element in turn: DO M=1,NEL 


Each element node in turn: DO IN=1,3 


I=NODE (M, IN) 
XX=XNODI 


Gl 


(I) -XC 
YY=YNODI 


ea 


(I) -YC 
DPSIPIM(M, IN) =0.5*F1* (XX*UNMX (M, IN) +YY*UNMY (M, IN) ) 


END DO Each element node in turn 


END DO Each element in turn 


SUBTRACT THE PARTICULAR INTEGRAL CONTRIBUTIONS FROM THE PRESCRIBED 


r 


BOUNDARY CONDITIONS. 


Each node in turn: DO I=1,NNP 


IF(IBCN(I) == 1) DPSI(1I)=DPSI(I)-PSIPI (TI) 
IF(IBCN(I) == 2) DPSI(1I)=DPSI (I) -DPSIPI(T) 
IF(IBCN(I) == 3) DPSI(1I)=DPSI(1I)-DPSIPI(1I)+ALPHAN (I) *PSIPI (I) *MAXL 


END DO Each node in turn 


END SUBROUTINE POISSON 
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Next, the components of the unit normals at the nodes are computed and stored in arrays UNX and 
UNY. For element midside nodes this is a straightforward transfer from UNMX to UNX and UNMY to 
UNY. For element end nodes, possible differences between the normals in the adjacent elements have to 
be accommodated. Three cases need to be considered. Firstly, where both elements have either potential 
or gradient type boundary conditions prescribed. Secondly, where the current element has potential type, 
but the adjacent element has gradient type. Thirdly, where the current element has gradient type and the 
adjacent element has potential type. In the first case the normal at the node is taken as the average of 
those for the two elements. This is achieved by simply adding the components of the two unit normals 
to create the vector sum at the average angle to the global co-ordinates. A consequence of this is that 
at a node where the boundary should be smooth but the quadratic representation does not model the 
geometry exactly, for example on an arc ofa circle, the true average normal direction will be used. In the 
second and third cases of different boundary condition types on the two adjacent elements, prescribed 
potential at the node is imposed, and the normal should be that associated with the element over which 


potential is prescribed. 


First case type element end nodes now have averaged normals, but they are not unit normals. So all 
end nodes (odd-numbered nodes) have their normals reduced to unit normals, which has no effect on 


second or third case end nodes whose normals are already unit normals. 


For every node, the values of the particular integral potential and potential gradient defined by 
Equations 2.108 and 2.109, in co-ordinates which have their origin at the point (XC, YC), are computed 
and stored in arrays PSIPI and DPSIPI. Note that the particular integral is defined in terms of scaled 
variables, so that the co-ordinates of the origin are first divided by MAXL, and f, is multiplied by the 
square of this length. From Equation 2.1, f, must have the dimensions of potential divided by length 
squared, because it is equated to second derivatives of potential. Particular integral potential gradients 
are also computed for every node of every element (with its own individual normal direction) and stored 


in the two-dimensional array DPSIPIM. 


The final action in the subprogram is to subtract the scaled particular integral contribution from the scaled 
known variable for each node. In other words, for a type 1 boundary condition (prescribed potential) the 
potential due to the particular integral (Equation 2.108) is subtracted from the scaled potential defined by 
the actual boundary condition, which is already stored in the array DPSI. For a type 2 boundary condition 
(prescribed potential gradient) the potential gradient due to the particular integral (Equation 2.109) is 
subtracted from the (scaled) potential gradient defined by the actual boundary condition, which is already 
stored in the array DPSI. The type 3 (mixed) boundary condition is a little more complicated, but is 


dealt with exactly as described in Section 3.1.6 for constant elements, in particular using Equation 3.21. 
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4.1.8 Subprogram to form the coefficient matrix 


Subprogram FRMTRX forms the coefficient matrix and right hand side vector of Equations 2.31, 
and stores them as an extended matrix in array A. The extended matrix is simply [A*] with an extra 
column to contain column vector [b]. Each node in turn is treated as point P, the source point for the 
fundamental solution, then integration is carried out over every element in turn. This integration involves 
the knowns and unknowns at each of the three nodes of every element. Node counters I and J are used 
for P and the current element node, respectively, so that I is the equation counter and numbers rows in 
[A*], while J numbers columns. The actual integrations of the kernel function products are carried out 
in subprogram INTKER which is called by FRMTRX. What INTKER does is to compute the integrals 


+1 d 1 +1 1 
Sal eal} MOJO a and [7 Inf] nN. OIEG (4.1) 
associated with the cth node of the current element m, and which are required in Equation 2.63. If the 
knowns and unknowns at this node are potential gradient and potential, then these two quantities will 
contribute to the [A] and [B] matrices, respectively. Initially they are stored (in subprogram INTKER) in 
the two-dimensional arrays AROW and BROW as the coefficients that will form the current row of [A] 


and the current row of [B], but with the contributions from every node of every element kept distinct. 


SUBROUTINE FRMTRX 


! SUBPROGRAM TO FORM THE COEFFICIENT MATRIX AND RIGHT HAND SIDE 


< 


ECTOR, 


! MODIFIED TO SUIT THE BOUNDARY CONDITIONS. 


r 


USE SHAREDDATA2 PQ 


! DEFINE THE NUMBER OF COLUMNS IN THE EXTENDED COEFFICIENT MATRIX A. 


! FORM THE COEFFICIENT MATRIX A, AND THE RIGHT HAND SIDE VECTOR B*DPSI. 


Take each node in turn as P: DO I=1,NNP 


! INITIALIS 


r. 


CURRENT ROW OF MATRIX A. 


Each coefficient in turn: DO J=1,JMAX 
A(I,J)=0. 


END DO Each coefficient in turn 


! INITIALISE ELEMENT CONTRIBUTIONS TO CURRENT ROWS OF A AND B MATRIC 


Gl 
wn 


Each element in turn: DO M=1,NEL 


Each element node in turn: DO IN=1,3 


AROW (M, IN) =0. 
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BROW (M, IN) =0. 


END DO Each element node in turn 


END DO Each element in turn 


! SET UP THE LOOP TO INTEGRATE OVER EACH ELEMENT IN TURN. 


Each element in turn: DO M=1,NEL 


: INTEGRATE THE KERNEL PRODUCTS OVER THE CURRENT ELEMENT. 


CALL INTKER(I,M) 


END DO Each element in turn 


! EVALUATE THE DIAGONAL COEFFICIENT OF MATRIX A. 


AII=0. 


Each element in turn: DO M=1,NEL 


Each element node in turn: DO IN=1,3 
AII=AII-AROW (M, IN) 


END DO Each element node in turn 


END DO Each element in turn 


IF(IBCN(I) /= 1) A(1I,1)=AII 
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! INITIALISE THE B*DPSI VECTOR COEFFICIENT. 


BDPSI=0. 


IF(IBCN(I) == 1) BDPSI=-AII*DPSI(T) 


! APPLY THE BOUNDARY CONDITIONS TO THE CURRENT ROWS OF A AND B, BY 


! CONSIDERING EACH ELEMENT IN TURN. 


Each element in turn: DO M=1,NEL 


Each element node in turn: DO IN=1,3 


J=NODE (M, IN) 


! IF POTENTIAL IS PRESCRIBED OVER THE ELEMENT, INTERCHANGE THE A AND 


! B COEFFICIENTS. 


IF(IBCE(M) == 1) THEN 


A(1I,J)=A(I,J) -BROW (M, IN) 


BDPSI=BDPSI-AROW (M, IN) * (STORE (M) -PSIPI (J) ) 


END IF 


! IF POTENTIAL GRADIENT IS PRESCRIBED OVER THE ELEMENT (WHICH MAY 


! INCLUDE A CORNE 


Pe) 
Zz 
oO 
jw) 
= 
H 
H 


H MIXED BOUNDARY CONDITION), STORE THE A 


! MATRIX COEFFICIENTS, EXC 


= 


iPT AT A CORN 


es 


‘R NODE WHERE PRESCRIBED 


! POTENTIAL HAS BEEN IMPOS 


Fl 


D. 


IF(IBCE(M) == 2) THEN 


BDPSI=BDPSI+BROW (M, IN) * (STORE (M) *MAXL-DPSIPIM (M, IN) ) 


IF(IBCN(J) /= 1) A(I,J)=A(1I,J)+AROW (M, IN) 


IF(IBCN(J) == 1) BDPSI=BDPSI-AROW (M, IN) *DPSI (J) 


END IF 


! IF BOUNDARY CONDITION OVER THE ELEMENT IS MIXED (WHICH MAY 


! INCLUDE A CORNER NODE WITH PRESCRIBED POTENTIAL GRADIENT), 


! MODIFY TH 


Gl 


A MATRIX COEFFICIENTS, EXCEPT AT A CORNER NODE 


! WHERE PRESCRIBED POTENTIAL HAS BEEN IMPOSED. 


IF(IBCE(M) == 3) THEN 


PSISTORE=ALPHA (M) *PSIPI (J) +BETA (M) 


Gl 


D 
DPSISTORE=DPSISTORE*MAXL-DPSIPIM (M, IN) 
BDPSI=BDPSI+BROW (M, IN) *DPSISTOR 

I 


F(IBCN(J) /= 1) THEN 


A(1I,J)=A(1I,J) +AROW (M, IN) -BROW (M, IN) *ALPHA (M) *MAXL 


END IF 


IF(IBCN(J) == 1) TH 


=) 
Zz 
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BDPSI=BDPSI-AROW (M, IN) *DPSI (J) 
BDPSI=BDPSI+BROW (M, IN) *ALPHA (M) *DPSI (J) *MAXL 
END IF 
END IF 


END DO Each element node in turn 


END DO Each element in turn 


! STORE THE B*DPSI COEFFICIENT AS AN EXTENSION OF MATRIX A. 


R 
A(I,JMAX) =BDPSI 


END DO Take each node in turn as P 


RETURN 


END SUBROUTINE FRMTRX 


At the beginning of the subprogram the current row of array A and all the coefficients of arrays AROW 
and BROW are set to zero in anticipation of the assembly process. Then for each boundary element in 
turn subprogram INTKER is called to carry out the integrations. Before any boundary conditions are 
applied, the diagonal coefficient of the [A] matrix is computed with the aid of Equation 2.66, noting 
that the Aj; coefficient for any element end node has two contributions, from the two elements which 
share it, stored in the relevant locations in AROW. The coefficient on the current row of the product of 
matrix [B] with the vector of known variables is to be accumulated in BDPSI. This is set to zero initially 
in anticipation of the element contributions to be added to it. If the boundary condition at point P is 
of the potential type, the product of the diagonal coefficient of [A] with the prescribed potential there 
is known and must be moved from the left hand side to the right hand side of the equation, and stored 
in BDPSI with its sign changed. 


The boundary conditions applied to each of the elements in turn are now used to determine how the terms 
stored in AROW and BROW must be added to [A] and [B]. It is perhaps helpful to consider the relevant 
fragments of the equation represented by the current rows of the [A] and [A] matrices, the fragments 


being for the IN® node of the element numbered M as a result of the integration over the element 


... FAROW(MLIN)X p+... =. ...-+BROW(M,IN)x (*) B svass (4.2) 

j 
where j is the number of the IN" node of the element (J=>\ NODE(M,IN) in programming terms). These 
parts of an equation are presented in a mixture of program and physical variables in an attempt to clarify 
what is going on. The values of potential and potential gradient in this equation are for the Laplace 


problem after subtraction of the particular integral contributions. 


Download free eBooks at bookboon.com 


Potential gradient known over the element 


If the potential gradient over the element is known and the potential unknown then the product 
BROW(M,IN)x far , which is a known quantity, is added to the right hand side vector whose coefficient 
for the current equation is BDPSI. Note that, irrespective of what is the known variable at the particular 
node, the gradient in this product is that prescribed for the element as a whole, ifnecessary subtracting the 
particular integral contribution at the node of the element, namely STORE(M)* MAXL-DPSIPIM(M,IN). 
Multiplication by the length MAXL is necessary to scale the stored value of gradient. Provided the 
potential at the particular node is the unknown, then on the left hand side of the equation the computed 
AROW(M,IN) is simply added to the [A] matrix coefficient stored in A(I, J). 


If the potential at the particular node is known, which implies that the node is an end node at a point 
where the boundary condition changes from potential type to gradient type, then the AROW(M,IN) x 
wjterm in Equation 4.2, where w; is the value stored in DPSI( J), must be taken from the left hand side 
of the equation to the right hand side and subtracted from BDPSI. 


Potential known over the element 


If the potential over the element (and hence at all three nodes) is known and the potential gradient is 


unknown then the terms in Equation 4.2 have to be moved to the opposite sides 
dy 
v1. = BROW(M,IN)x (*) +... = ....— AROW(MIN)x ;+ .... (4.3) 
i 


The product AROW(M,IN)xw;, which is a known quantity, is subtracted from the right hand side 
vector whose coefficient for the current equation is BDPSI. Note that, irrespective of what is the known 
variable at the particular node, the potential in this product is that prescribed for the element as a 
whole, if necessary subtracting the particular integral contribution at the node of the element, namely 
STORE(M)-PSIPI( J). On the left hand side of the equation the computed BROW(M,IN) is simply 


subtracted from the [A] matrix coefficient stored in A(I, J). 


Mixed boundary condition over the element 


If a mixed boundary condition is applied to the element then, from Equation 3.21, the gradient term 


in Equation 4.2 is 


Gas = [am (W; + Wer) + Bm|L - (%), (4.4) 
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where @,, and £,,, are the boundary condition parameters for element numbered M, namely ALPHA(M) 
and BETA(M) in programming terms, L is the length scaling parameter MAXL, and wp; and (+ 

are the (scaled) particular integral contributions at node j in the element, namely PSIPI(J) ‘and 
DPSIPIM(M,IN). Irrespective of what is the known variable at the particular node the following part 


of this expression is known 


[em ibpr + Bm IL — ( ae (4.5) 


and is stored in DPSISTORE in the program. It is then multiplied by BROW(M,IN) according to 
Equation 4.2 and added to BDPSI. 


If the potential at the particular node is the unknown, then the a@,, WL term contains the unknown and 
it must be taken to the left hand side of the equation. Therefore, to the [A] matrix coefficient stored in 


A(I, J) is added the expression 


AROW(M,IN)-BROW(M,IN)*ALPHA(M)*MAXL (4.6) 


THs @DOOK ts propucep with Wext® 
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If the potential at the particular node is known, which implies that the node is an end node at a point 
where the boundary condition changes from potential type to gradient type, then the AROW(M,IN) x 
w; term in Equation 4.2, where pp; is the value stored in DPSI(J), must be taken from the left hand side 
of the equation to the right hand side and subtracted from BDPSI. The a, p;L term in Equation 4.5 is 
now also known and is multiplied by BROW(M,IN) and added to BDPSI. 


Once assembly of the linear equation for the current point P is complete, the right hand side vector 
coefficient accumulated in BDPSI is stored in the last column of extended matrix [A]. The assembly 


process is repeated for all nodes as source point P. 


4.1.9 Subprogram for integrating kernel function products over an element 


As already indicated (Equations 4.1), the purpose of subprogram INTKER is to compute the integrals 


involving the kernel functions 


Tao tl pal} Ne IE 48 and f** inf] we) IG) a8 


for a particular source point P (node numbered I) and element m, and which are required in Equation 
2.63. The global co-ordinates of P are first stored in XP and YP. Then, for each element node in turn 


(numbered c in the above expressions, IN in the subprogram) the node number is stored as J. 


SUBROUTINE INTKER(I,M) 


! SUBPROGRAM TO INTEGRATE THE KERNEL PRODUCTS FOR A PARTICULAR SOURCE 


! POINT P (INDICATED BY NODE NUMBER I) OVER A PARTICULAR ELEMENT 


| (INDICATED BY ARGUMENT M) BY GAUSSIAN QUADRATURE. 


USE SHAREDDATA2 PQ 


! COORDINATES OF POINT P. 
XP=XNODE (1) 


YP=YNODE (1) 


! SET UP THE ELEMENT NODE LOOP. 


Each element node in turn: DO IN=1,3 


J=NODE (M, IN) 


! IF P IS NOT THE CURRENT ELEMENT NODE, USE NORMAL GAUSSIAN QUADRATURE. 


ES] 


IF(I /= J) THEN 


Each Gauss point in turn: DO IGAUSS=1,NGAUSS 
! 
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! EVALUATE JACOBIAN AND UNIT NORMAL VECTOR COMPONENTS, ALSO THE KERNELS 


! AT THE PARTICULAR GAUSS POINT FOR NORMAL QUADRATURE OVER THE WHOLE 


|! ELEMENT 
Tei 
T¢=1 
CALL JACOBI (M, IGAUSS, IT, IC) 
CALL KERNEL (XP, YP,M, IGAUSS, AK, BR) 


! ACCUMULATE THE INTEGRALS. 


SFN=SF (IN, IGAUSS) 
AROW (M, IN) =AROW (M, IN) +WG (IGAUSS) *AK* SFN* JACOB 


BROW (M, IN) =BROW (M, IN) +WG (IGAUSS) *BK*SFN* JACOB 


END DO Bach Gauss point in turn 


END IF 


| 


! IF P IS THE CURRENT ELEMENT NODE, SOME LOGARITHMIC QUADRATUR 


! P AT THE FIRST NODE OF THE ELEMENT. 


! TERM INVOLVING NORMAL QUADRATURE. 


Each Gauss point in turn: DO IGAUSS=1,NGAUSS 


7-1 

TC=1 

CALL JACOBI (M, IGAUSS, IT, IC) 
CALL KERN2(M, IN, IGAUSS, BK2) 


SFN=SF (IN, IGAUSS) 


BROW (M, IN) =BROW (M, IN) +WG (IGAUSS) *BK2*SFN* JACOB 


eal 


ND DO Each Gauss point in turn 


Gl 


! TERM INVOLVING LOGARITHMIC QUADRATURE. 


Each Gauss point in turn: DO IGAUSS=1,NGAUSS 


IT=2 

ICc=1 

CALL JACOBI (M, IGAUSS,IT,IC) 
SFN=SFL (IC, IN, IGAUSS) 


DZDE=2. 
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BROW (M, IN) =BROW (M, IN) +WGL (IGAUSS) *SFN* JACOB* DZD 


Gl 


END DO Bach Gauss point in turn 


ea 
Pa 


D IF 


! P AT THE SECOND NODE OF THE ELEMENT. 


! TERMS INVOLVING NORMAL QUADRATURE. 


Each Gauss point in turn: DO IGAUSS=1,NGAUSS 


£T=1 
Si 
CALL JACOBI (M,IGAUSS, IT, IC) 
CALL KERN2(M, IN, IGAUSS, BK2) 


SFN=SF (IN, IGAUSS) 
BROW (M, IN) =BROW (M, IN) +WG (IGAUSS) *BK2*SFN* JACOB 


END DO Bach Gauss point in turn 


! TERMS INVOLVING LOGARITHMIC QUADRATURE. 


Each Gauss point in turn: DO IGAUSS=1,NGAUSS 
IT=2 
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IC=2 
CALL JACOBI (M, IGAUSS,IT,IC) 
SFN=SFL (IC, IN, IGAUSS) 


DZDE=1. 


BROW (M, IN) =BROW (M, IN) +WGL (IGAUSS) *SFN* JACOB*DZDI 


IC=3 


CALL JACOBI (M, IGAUSS,IT,IC) 
SFN=SFL (IC, IN, IGAUSS) 


DZDE=1. 


END DO Each Gauss point in turn 


ea 
Zz 
oO 
H 
Z| 


!  P AT THE THIRD NODE OF THE ELEMENT. 


IF(IN == 3) THEN 


! TERM INVOLVING NORMAL QUADRATURE. 


iE 


TT=1 
i 
CALL JACOBI (M, IGAUSS, IT, IC) 
CALL KERN2(M, IN, IGAUSS, BK2) 


SFN=SF (IN, IGAUSS) 


BROW (M, IN) =BROW (M, IN) +WG (IGAUSS) *BK2*SFN* JACOB 


eal 


ND DO Each Gauss point in turn 


! TERM INVOLVING LOGARITHMIC QUADRATURE. 


El 


IT=2 
Ic=4 
CALL JACOBI (M, IGAUSS, IT,IC) 


SFN=SFL (IC, IN, IGAUSS) 


DZDE=2. 


eal 


ND DO Each Gauss point in turn 


El 
Pea 


D IF 
IF 


DO Each element node in turn 


RETURN 
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BROW (M, IN) =BROW (M, IN) +WGL (IGAUSS) *SFN* JACOB*DZDI 


Each Gauss point in turn: DO IGAUSS=1,NGAUSS 


Each Gauss point in turn: DO IGAUSS=1,NGAUSS 


BROW (M, IN) =BROW (M, IN) +WGL (IGAUSS) *SFN* JACOB*DZDI 


Gl 


Gl 


|| 


P not at the current node of the element containing Q 


If P and Q are not in the same element, or P is not at the current node of the element containing Q 
(that is, I#J) then normal Gaussian quadrature (Appendix A) over the whole element is carried out to 
evaluate the integrals. The required shape functions at the Gauss points have already been computed in 
subprogram SHAPE and stored in array SE. The Jacobians at the Gauss points are found in subprogram 
JACOBI, and the kernel functions in subprogram KERNEL. The last of these subprograms stores the 
kernel functions in variables AK and BK, respectively. For each Gauss point the products of Gaussian 
weighting factor (WG), kernel function (AK or BK), shape function (SFN) and Jacobian (JACOB) are 
then added to either arrays AROW or BROW to complete the numerical integration process. 


P at the current node of the element containing Q 


If Pand Q are in the same element and P is at the current node of the element (that is, I= J) then, because 
of the singular nature of the second kernel function, some logarithmic Gaussian quadrature is required, 
as described in Section 2.5.2. The first kernel function does not have to be evaluated because the relevant 


diagonal coefficient of the matrix [A] has already been found indirectly with the aid of Equation 2.66. 


If P is the first node of the element the integration process follows Equations 2.68 to 2.78. The integral 
of the second kernel function is split into singular and non-singular parts. To the latter is applied 
Gaussian quadrature in the usual way, the non-singular part of the second kernel function being defined 
in subprogram KERN2 and returned in variable BK2. The singular part is integrated using logarithmic 
Gaussian quadrature (Appendix A) applied to the whole element, with the origin of the modified 
intrinsic co-ordinate 7 being at the first node. The derivative of € with respect to 7, |d&/dn|, is stored 
in variable DZDE. 


If Pis the second node of the element the integration process follows Equations 2.79 to 2.90. The integral 
of the second kernel function is again split into singular and non-singular parts. To the latter is applied 
Gaussian quadrature in the usual way, the non-singular part of the second kernel function being defined 
in subprogram KERN2 and returned in variable BK2. The singular part is integrated using logarithmic 
Gaussian quadrature applied to the two halves of the element separately, in each case with the origin of 


the modified intrinsic co-ordinate 7 at the second node. 


If P is the third node of the element the integration process follows Equations 2.91 to 2.101, and is very 


similar to the case of P (and Q) at the first node of the element. 
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4.1.10 Subprogram for computing the Jacobian at a point on an element 


Subprogram JACOBI computes the Jacobian of co-ordinate transformation from global to local intrinsic 
at a particular Gauss point on an element. To do this it uses Equations 2.60, 2.57 and 2.58. The shape 
function derivatives required for Equation 2.58 are obtained from either array SD for a Gauss point 
used in normal quadrature, or array SDL for a Gauss point used in logarithmic quadrature. For the 
latter there are four possible alternative cases, defined by IC, according to the extent of, and origin for, 
the logarithmic quadrature. The distinction here between normal quadrature and the various cases 
of logarithmic quadrature is only important in defining the position of the Gauss point at which the 


Jacobian is to be computed. 


= 


SUBROUTINE JACOBI (M, IGAUSS,IT,IC) 


r. 
E 


! SUBPROGRAM TO EVALUATE THE JACOBIAN AND THE COMPONENTS OF THE UNIT 


7] 


! NORMAL VECTOR AT A PARTICULAR GAUSS POINT. 


! M INDICATES THE ELEMENT NUMBER. 


a 


GAUSS POINT NUMB 


!  IGAUSS INDICATES THE 


ea 
w 


! IT INDICATES THE TYPE OF QUADRATURE. 


Gl 


| IT=1 - NORMAL GAUSSIAN QUADRATURE. 


| IT=2 - LOGARITHMIC GAUSSIAN QUADRATURE. 


r 


! IC INDICATES THE CASE NUMB 


iR FOR LOGARITHMIC GAUSSIAN QUADRATURE, 
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! AS DEFINED IN SUBROUTINE SHAPE. 


USE SHAR 


r 


‘DDATA2 PQ 


! CALCULATE THE DERIVATIVES OF THE GLOBAL COORDINATES WITH RESPECT TO 


! THE LOCAL INTRINSIC COORDINATE. 


DX=0. 
DY=0. 


Each element node in turn: DO IN=1,3 
IF(IT == 1) SFND=SD(IN, IGAUSS) 

IF(IT == 2) SFND=SDL(IC, IN, IGAUSS) 
J=NODE (M, IN) 


DX=DX+SFND*XNOD 


GI 
= 

cy 
= 


DY=DY+SFND*YNOD 


GI 
oe 
Cy 
< 


END DO Each element node in turn 


! COMPONENTS OF THE LOCAL OUTWARD NORMAL VECTOR AT THE GAUSS POINT. 


r 


UNGX=DY 


UNGY=-DX 


= 


!  JACOBIAN OF THE COORDINATE TRANSFORMATION. 


JACOB=SOQRT (UNGX* *2+UNGY**2) 


! SCALE THE VECTOR COMPONENTS TO GIVE THE UNIT NORMAL VECTOR. 


UNGX=UNGX/ JACOB 
UNGY=UNGY / JACOB 


END SUBROUTINE JACOBI 


By products of the calculation for a Jacobian (JACOB) are the components of the outward normal vector 
to the boundary at the chosen Gauss point. These are converted to components of the unit normal and 
stored in variables UNGX and UNGY. 
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4.1.11 Subprogram for computing the kernel functions when P is not at the current node of the 
element containing Q 


Subprogram KERNEL computes the kernel functions at a particular Gauss point Q with the aid of 
Equation 2.64. The co-ordinates XQ and YQ of the point are first found using Equations 2.54 and 2.55, 
followed by the components 1, and 7, (RX and RY) of the radius vector of length r (R) joining P and 
Q. Using the components of the unit normal previously found in subprogram JACOBI, the first kernel 


function (AK) is computed using Equation 2.64, and the second kernel (BK) from Equation 2.33. 


SUBROUTINE KERNEL (XP, YP,M, IGAUSS, AK, BK) 


! SUBPROGRAM TO EVALUATE THE KERNELS WHEN P IS NOT TH 


r. 


CURRENT 


! XP, YP INDICATE THE GLOBAL COORDINATES OF POINT P. 


! M INDICATES THE ELEMENT NUMBER. 


!  IGAUSS INDICATES THE NUMBER OF THE GAUSS POINT, QO. 


USE SHAREDDATA2 PQ 


! COORDINATES OF GAUSS POINT Q. 


XQ=0. 
YO=0. 


Each element node in turn: DO IN=1,3 
SFN=SF (IN, IGAUSS) 
J=NODE (M, IN) 


XQ=XQO+SFN*XNOD 


GI 
~ 

cy 
2 


YOQ=YOQ+SFN* YNOD 


GI 
~ 
qq 
= 


END DO Each element node in turn 


! COMPONENTS AND MAGNITUDE OF THE RADIUS VECTOR FROM P TO Q. 


Tr. 


RX=XQ-XP 
RY=YQ-YP 
RSQ=RX**2+RY**2 
R=SQRT (RSQ) 


! EVALUATE THE KERNELS. 


AK=- (RX*UNGX+RY*UNGY) /RSO 


BK=ALOG (1./R) 


RETURN 


eal 


ND SUBROUTINE KERNEL 
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4.1.12 Subprogram for computing the second kernel function when P is at the current node of 
the element containing Q 


Subprogram KERN2 computes, for a particular Gauss point , the non-singular logarithmic component 
of the second kernel function when source point P is at the current node of the element containing Q. 
In other words, the nil term (BK2 in the subprogram) in either Equation 2.78, 2.90 or 2.101, where 
R(é) (REN in the subprogram) is defined by either Equations 2.77, 2.88 or 2.100, according to whether 
P is at the first, second or third node of the element. The relevant value of the intrinsic co-ordinate € 


(variable ZETA in the program) is obtained from array ZG for normal Gaussian quadrature. 


SUBROUTINE 


~ 


(RN2 (M, IN, IGAUSS, BK2) 


UBPROGRAM TO EVALUATE THE NON-SINGULAR LOGARITHMIC TERM IN TH 


Gl 


ECOND KERNEL WHEN P IS THE CURRENT ELEMENT NODE. 


DICATES THE ELEMENT NUMBER. 


r 


N INDICATES THE NUMBER OF THE ELEMENT NODE FORMING P. 


H HH ZB wn Ww 
H 
Zz 


GAUSS INDICATES THE GAUSS POINT NUMBER. 


USE SHAREDDATA2 PQ 


! ELEMENT NODE NUMBERS. 


The Wake 
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H 
a 
ll 
Z 
oO 
i) 
Gl 


(M, 1) 


H 
No 
nl 
Z 
Oo 
=) 
EA) 


(M, 2) 


GW 
nl 
Z 
Oo 
=) 
1A) 


(M, 3) 


! EVALUATE THE INTRINSIC COORDINATE. 


ZETA=ZG (IGAUSS) 


! P AT THE FIRST NODE OF THE ELEMENT. 


IF(IN == 1) THEN 
XCOMP= (ZETA-2.) *XNODE (I1)+2.* (1.-ZETA) *XNODE (12) +ZETA*XNODE (13) 


YCOMP= (ZETA-2.) *YNODE (I1)+2.* (1.-ZETA) *YNODE (12) +ZETA* YNODE (13) 
RFN=SOQRT (XCOMP* *2+YCOMP**2) 
END IF 


! P AT THE SECOND NODE OF THE ELEMENT. 
IF(IN == 2) THEN 
XCOMP=-0.5* (ZETA-1.) *XNODE (11) +ZETA*XNODE (12) 
& -0.5%* (ZETA+1.) *XNODE (13) 
YCOMP=-0.5* (ZETA-1.) *YNODE (11) +ZETA*YNODE (12) 
& -0.5%* (ZETA+1.) *YNODE (13) 
RFN=SOQRT (XCOMP* *2+YCOMP**2) 


END IF 


! P AT THE THIRD NODE OF THE ELEMENT. 


IF(IN == 3) THEN 
XCOMP=-ZETA*XNODE (I1)+2.* (1.+ZETA) *XNODE (12) - (ZETA+2.) *XNODE (13) 


YCOMP=-ZETA*YNODE (I1)+2.* (1.+ZETA) *YNODE (12) - (ZETA+2.) *YNODE (13) 


RFN=SOQRT (XCOMP* *2+YCOMP**2) 


eal 


ND IF 


! EVALUATE THE KERNEL TERM. 


BK2=ALOG (1. /RFN) 


RETURN 


eal 


ND SUBROUTINE KERN2 


x 
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4.1.13 Results output subprogram 


Subprogram OUTPUT organises and writes out the primary results of the computation, but not including 
secondary results such as values of potentials at internal points. Firstly, potentials and potential gradients 
are put back into their proper arrays, and the contributions of the particular integral added to get from 
the solution to the Laplace equation (with modified boundary conditions) which has been solved back 
to the “total” solution to the original problem. If the original problem was of the Laplace type, then the 


contributions from the particular integral potential and gradient are both zero. 


SUBROUTIN 


Gl 


OUTPUT 


! SUBPROGRAM TO WRITE OUT THE NODAL POINT VALUES OF POTENTIAL AND 


Wd 
oO 
HW 
eal 


ENTIAL GRADIENT, AND COMPUTE POTENTIAL FLOWS ACROSS TH 


GI 


! BOUNDARY SEGMENTS. 


USE SHARE 


Ky 


DATA2PQ 


! ARRANGI 


Gl 


FOR PSI AND DPSI TO CONTAIN TH 


r. 


POTENTIALS AND POTENTIAL 


! GRADIENTS, RESPECTIVELY. 


Each node in turn: DO I=1,NNP 


IF(IBCN(I) == 1) THEN 
TEMP=PSI (T) 
PSI (I) =DPSI (I) 


fl 
Zz 
oO 
HH 
iz) 


IF(IBCN(I) == 3) THEN 


PSITOT=PSI (I) +PSIPI (I) 
DPSI (1) =(ALPHAN (I) *PSITOT+BETAN (I) ) *MAXL-DPSIPI (TI) 


END IF 


END DO Each node in turn 


! ADD CONTRIBUTIONS OF TH 


1A 


PARTICULAR INTEGRAL. 


r 


WRITE (6, 61) 


61 FORMAT (/ "NODAL POINT POTENTIALS AND POTENTIAL GRADIENTS" // 


& I PSI DPSI UNX UNY" ) 


Each node in turn: DO I=1,NNP 
PSIT(1I)=PSI (I) 


DPSIT (I) =DPSI (I) 


IF(Fl /= 0.) THEN 
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PSIT (I) =PSIT(I)+PSIPI(T) 
DPSIT(1I)=DPSIT(1I)+DPSIPI (I) 
END IF 


a 
< 
(e) 
a 
| 
a 
ES 


‘INGTH SCALE FACTOR FROM THE GRADIENT VALUES. 


DPSIT (I) =DPSIT (I) /MAXL 


! OUTPUT THE NODAL VALUES OF POTENTIAL, POTENTIAL GRADIENT, 


! AND THE UNIT NORMAL COMPONENTS. 


WRITE (6,62) I,PSIT(I),DPSIT(I) ,UNX(I) , UNY (I) 
FORMAT (16, 2E15.6,2E13.4) 


END DO Each node in turn 


! COMPUTE THE POTENTIAL FLOWS ACROSS THE BOUNDARY SEGMENTS. 


FLOWOUT=0. 


Each segment in turn: DO ISEG=1,NSEGTOT 


FLOWSEG (ISEG) =0. 


END DO Bach segment in turn 


‘auMUadIV EL0ZO 


z= 
= 
= 
Ga 
a 
G 
2 
a 
a 
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fl 
ea 


Each element in turn: DO M=1,N 


ISEG=ISEGELEM (M) 


! APPLY GAUSSIAN QUADRATURE. 


| 


FLOWELEM=0. 


Each element node in turn: DO IN=1,3 


J=NODE (M, IN) 


! FIND THE POTENTIAL GRADIENT AT THE NODE. 
IF(IBCE(M) == 1) DPSISTORE=DPSIT (J) 
IF(IBCE(M) == 2) DPSISTORE=STORE (M) 
IF(IBCE(M) == 3) DPSISTORE=ALPHA (M) *PSIT (J) +BETA (M) 


Each Gauss point in turn: DO IGAUSS=1,NGAUSS 


SFN=SF (IN, IGAUSS) 

IT=1 

Ic=1 

CALL JACOBI (M, IGAUSS, IT,IC) 


FLOWELEM=FLOWELEM+WG (IGAUSS) *SFN* JACOB* DPSISTORE*MAXL 


END DO Bach Gauss point in turn 


END DO Each element node in turn 


D> 
Q 
Q 
G 
Kk 
Gq 
EA 
i 
HW 
H 
ae 


: FLOW ACROSS THE SEGMENT, AND THE TOTAL FLOWS IN 


! AND OUT OF TH 


ira 


DOMAIN. 


FLOWSEG (ISEG) =FLOWSEG (ISEG) +FLOWELEM 


H 
Hy 
= 
e) 
= 
+ 
fr 


M > QO.) FLOWIN=FLOWIN+FLOWELEM 


IF (FLOWELEM < 0.) FLOWOUT=FLOWOUT-FLOWELEM 


END DO Each element in turn 


! OUTPUT THE POTENTIAL FLOW RESULTS. 


WRITE(6,63) (ISEG, FLOWSEG (ISEG) , ISEG=1,NSEGTOT) 


63 FORMAT (/ "POT 


es 


NTIAL FLOWS INTO DOMAIN ACROSS BOUNDARY SEGMENTS" 


& // “SEGMENT FLOW" / (15,E16.6)) 


WRITE (6,64) FLOWIN, FLOWOUT 


64 FORMAT (/ "TOTAL POTENTIAL FLOW INTO DOMAIN =",E15.6 // 


& "TOTAL POTENTIA 


FLOW OUT OF DOMAIN =",E15.6) 


RETURN 


a 


ND SUBROUTINE OUTPUT 


Tr. 
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If the boundary condition at a particular point is of the first type (prescribed potential) the solution array 
PSI contains the computed potential gradient, and the relevant components of arrays PSI and DPSI must 
be interchanged. If the boundary condition is of the third, mixed, type then potential was the unknown 
and is now correctly stored in array PSI. On the other hand, the potential gradient solution (for the 


Laplace problem) has to be found using Equation 3.21 and stored in DPSI. 


Arrays PSI and DPSI now contain all the nodal point values of potential and potential gradient, either 
from the boundary conditions or from the boundary element solution. But they are for the Laplace 
equation with the particular integral subtracted. The latter contributions, stored in PSIPI and DPSIPI 
are now added to PSI and DPSI to give the “total” values solving the original problem and stored in 
PSIT and DPSIT. Both sets are scaled values, and the gradients have to be unscaled by dividing by the 


length scale, MAXL. For each node, the node number, potential and potential gradient are written out. 


In many problems of practical engineering interest, the “flows” of potential across different parts of 
the boundary of a problem are of interest. Such flows are locally proportional to the potential gradient 
normal to the boundary, and their totals over parts or all of the boundary can be found by integrating 
the potential gradient with respect to distance along the boundary. In the case of quadratic boundary 
element results this has to be done using Gaussian quadrature to find the flow contribution of each 
element (FLOWELEM) from 


Flow = Yai I) (Sh) Ne@I@L a (4.7) 


The length scale L is necessary in this expression because the Jacobian transforms between global scaled 
co-ordinates and the intrinsic co-ordinate, whereas integration with respect to unscaled distance along 
the boundary is required. Note that it is important to use the correct value of potential gradient at 
every element node, given that the gradients at nodes are not necessarily unique. For an element with 
prescribed potential this value is the computed nodal point gradient. For an element with prescribed 
potential gradient the correct value is that prescribed value. For an element with a mixed boundary 
condition the correct value is that defined by Equation 2.32, the appropriate potential value being that 


at the node concerned. 
The flow contributions of individual elements are summed over the required parts of the boundary. In the 


subprogram, the total flows over each boundary segment (FLOWSEG) are computed, together with the 
total flows into (FLOWIN) and out of (FLOWOUT) the domain which are found and finally written out. 
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4.1.14 Subprogram for computing potentials at internal points 


Subprogram INTERNAL implements Equation 2.26 to find values of potential at points within the 
solution domain. Internal point p can be chosen freely, but the result may not be very accurate if the 
point is very close to the boundary. The calculation procedure only breaks down completely if P happens 
to be chosen to coincide with a Gauss point of an element (when the distance between P and Q would 


be zero in subprogram KERNEL). 


SUBROUTINE INTERNAL 


! SUBPROGRAM TO COMPUTE AND OUTPUT THE POTENTIALS AT SELECTED 


! INTERNAL POINTS. 


USE SHAREDDATA2 PQ 


! INPUT NUMBER OF INTERNAL POINTS. 


IF (NINT == 0) RETURN 


WRITE (6, 61) 


61 FORMAT (/ "POTENTIALS AT INTERNAL POINTS" // 
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! INPUT THE INTERNAL POINT COORDINATES. 


Bach internal point in turn: DO IINT=1,NINT 
READ (5,*) XINT,YINT 
XP=XINT/MAXL 
Y 


P=YINT/MAXL 


! INTEGRATE ROUND TH 


Gl 


BOUNDARY. 


SUM=0. 


Each element in turn: DO M=1,NEL 


Each element node in turn: DO IN=1,3 


J=NODE (M, IN) 


Gl 


! FIND THE POTENTIAL GRADIENT AT THE NODE, EITHER AS COMPUTED 


! IF POTENTIAL WAS PRESCRIBED, OR FROM THE PRESCRIBED GRADIENT 


! OR MIXED BOUNDARY CONDITIONS. 
IF(IBCE(M) == 1) DPSISTORE=DPSI (J) 
IF(IBCE(M) == 2) DPSISTORE=STORE (M) *MAXL-DPSIPIM (M, IN) 
IF(IBCE(M) == 3) DPSISTORE= (ALPHA (M) *PSIT(J)+BETA (M) ) *MAXL 
& -DPSIPIM(M, IN) 


! APPLY GAUSSIAN QUADRATURE. 


Gl 


Each Gauss point in turn: DO IGAUSS=1,NGAUSS 
IT=1 

IC=1 

CALL JACOBI (M, IGAUSS, IT, IC) 


CALL KERNEL (XP, YP,M, IGAUSS, AK, BK) 


SFN=SF (IN, IGAUSS) 


SUM=SUM+WG (IGAUSS) *SFN* JACOB* (-AK* PSI (J) +BK* DPSISTORE) 


END DO Each Gauss point in turn 


END DO Each element node in turn 


END DO Each element in turn 


PSTIP=SUM*0.5/PI 


PSIIPT=PSIIP 


! ADD THE PARTICULAR INTEGRAL FOR A POISSON TYPE PROBLEM. 


IF(Fl /= 0.) THEN 


XX=XP-XC 
YY=HYPHV.C 
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PSIIPT=PSiITPT+O:. 2548 1% (XX**24+YY**2) 
END IF 


! OUTPUT THE POTENTIAL AT THE INTERNAL POINT. 


WRITE (6,62) PSIIPT,XINT, YINT 
FORMAT (E14.6,5X,2E12.4) 


END DO Each internal point in turn 


RETURN 


END SUBROUTINE INTERNAL 


In the subprogram the number of internal points is first read into variable NINT. Then for each point 
in turn its global co-ordinates are input to XINT and YINT. These are first scaled and stored in XP and 
YP. The integration over the boundary required by Equation 2.26 is performed by summing over each 


of the boundary elements in turn. 


2mp(p) + & (pe- 9) as=o (2.26) 


which becomes 


2mp(p) = YM, Di (w+ o 2) nV @dé (4.8) 


where the gradient of @, and @ itself, are the first and second kernel functions, respectively. In 
subprogram INTERNAL three summation loops are set up in turn: over the elements, over the nodes of 
each element, and over the Gauss points within the element. For a particular Gauss point the Jacobian is 
found from JACOBI, the two kernel functions from KERNEL (returned in AK and BK), and the shape 
function from array SFN. Finally, the summation expressed on the right hand side of Equation 4.8 is 
performed, the result being stored in SUM, and finally divided by 27 to give PSIIP, the potential at internal 
point P. Note that it is important to use the correct value of potential gradient at every element node, 
given that the gradients at nodes are not necessarily unique. For an element with prescribed potential this 
value is the computed nodal point gradient (before the particular integral contribution is added). For an 
element with prescribed potential gradient the correct value is that prescribed value minus the particular 
integral contribution for the node. For an element with a mixed boundary condition the correct value 
is that defined by Equation 2.32, minus the particular integral contribution, the appropriate potential 
value being the total value at the node concerned. In other words, the calculation is carried out in terms 
of the Laplace problem variables, with if necessary the particular integral contributions to the boundary 
conditions subtracted. If the problem is of the Poisson type, the particular integral contribution to the 
potential (Equation 2.108) at is P then added, to give the total potential there, PSIIPT. Finally, this value 


and the (unscaled) co-ordinates of the internal point are written out. 
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4.1.15 Subprogram for solving the linear equations 


Both the Gaussian elimination algorithm and subprogram ELIMIN for solving the linear equations 
are described in Appendix B. The matrix [A*] extended to include the right hand side vector [b] 
(in Equation 2.31) is entered in array A, and the solutions returned in array X (PSI in the calling 


main program). 


4.2 Some Test Problems for BEM2PQ 


Before attempting to solve real problems for which the solutions are not known, it is essential to test 
any computer program as extensively as possible on problems for which exact analytical solutions are 
available for comparison. If necessary, test problems have to be simplified to the point where analytical 
solutions can be obtained. Such problems serve not only to verify that the program is working correctly, 
but also to examine the level of discretisation (the fineness of the boundary element mesh in this case) 
necessary to obtain accurate results. It is also both convenient and appropriate to solve at least some 
of the test problems considered in Chapter 3, thereby allowing a direct comparison between constant 
and quadratic boundary elements. With quadratic elements, having nodes at points where boundary 


conditions change, not only in magnitude but also in type, it is important to include test cases where 


such changes occur. 
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4.2.1 A simple one-dimensional potential problem 


The first test is the effectively one-dimensional one shown in Figure 3.2. The region concerned is 
rectangular, 4 units wide and 2 deep, subject to zero derivative boundary conditions on the top and 
bottom edges, a potential value of 5 on the left hand edge and a value of 1 at the right hand edge. The 


analytical solutions to the problem, both Laplace and Poisson, are derived in Section 3.2.1. 


The Laplace problem 


The exact analytical solution to the Laplace problem, with f; = 0, is 


p=—-xt+5, = 1 (4.9) 
The potential “flows” into the left hand edge and out of the right hand edge of the domain are both of 


magnitude 2 (gradient times edge length). 


To obtain a quadratic boundary element solution to the problem, the boundary has first to be divided 
into segments. Four segments along the four edges of the domain are appropriate, because they are 
straight lines between corners and the boundary condition over each one is uniform. The ends of the 
segments are shown numbered 1 to 4 in Figure 3.2. The choice of starting point is arbitrary, but then 
the direction of numbering must keep the domain to the left. The data file DATA to solve the problem 


using one element (three nodes) per side of the domain is as follows 


e) 
Z 


E-DIMENSIONAL TEST PROBLEM 


(Value of f1) 

(Number of boundaries) 

(Number of segments on the boundary) 
Ow. 44-05. rae 2. On. 2% (Co-ordinates of the segment ends) 


(Radii of curvature, 


number of elements 


and element length ratio 


for each of the 4 segments) 
0 (Two prescribed boundary potentials) 


(Potential = 1 on segment 2) 


Or FF Oo 


(Potential = 5 on segment 4) 
(Number of internal points) 
(Co-ordinates of first internal point) 


(Co-ordinates of second internal point) 


SON FPF WF NN DOD DO DO GO oO fF FF OO 
ay 
ay 


(Co-ordinates of third internal point) 
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The annotations on the right have been added for explanation, and are not part of the data file. The 


potential values at three internal points are called for, points E, F and G in Figure 3.2. Note that the 


prescribed zero values of potential gradient do not have to be entered explicitly. 


The mesh data output file MESHRES is as follows 


GEOMETRIC DATA FOR THE MESH 


NUMBER OF ELEMENTS 


NUMBER OF NODAL POINTS 


COORDINATES OF THE NODAL POINTS 


-OO00E+00 0.0000E+00 
-4000E+01 0.0000E+00 
-4000E+01 0.2000E+01 
-QOO00E+00 0.2000E+01 


a GO WW F WH 
ao Go im OS 


ELEMENT NODE NUMBERS 


M ND1 ND2 ND3 
1 1 2 5 
3 5 6 7 


oOo WD B® NO WH 


> 3G. - ae 


ll 
fee) 


-2000E+01 
-4000E+01 
-2000E+01 
-0O000E+00 


0.0000E+00 
0.1000E+01 
0.2000E+01 
0.1000E+01 


With one element per segment, 4 elements and 8 nodes are created. Both elements and nodes are 


numbered as for the segments, anticlockwise from the origin, as shown in Figure 4.1. Element numbers 


are shown circled. Element end nodes are shown as small solid circles, mid-side nodes as open circles. 
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@ 
a oe. 
(41) (2.1) (3,1) 


2 804) 


Figure 4.1 Discretisation of one-dimensional test problem 


The RESULTS data file output by the program is 


QUADRATIC BOUNDARY ELEMENT SOLUTION FOR TWO DIMENSIONAL POTENTIAL PROBLEM 


INSIONAL TEST PROBLEM 


ONE-DIM 


= 


LAPLACE EQUATION 


PRESCRIBED POTENTIAL BOUNDARY CONDITIONS 


thanks to our 
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thin air. 
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POTENTIAL 0.1000E+01 ON ELEMENTS 2 TO 2 


POTENTIAL = 0.5000E+01 ON ELEMENTS 4 TO 4 


NODAL POINT POTENTIALS AND POTENTIAL GRADIENTS 


I PSI DPSI UNX UNY 

1 0.500000E+01 0.100151E+01 -0.1000E+01 0.0000E+00 
2 0.300000E+01 0.000000E+00 0.0000E+00 -0.1000E+01 
3 0.100000E+01 -0.100151E+01 0.1000E+01 -0.2666E-06 
4 0.100000E+01 -0.998856E+00 0.1000E+01 0.0000E+00 
5 0.100000E+01 -0.100151E+01 0.1000E+01 -0.2666E-06 
6 0.300000E+01 0.000000E+00 0.0000E+00 0O.1000E+01 
7 0.500000E+01 Q.100151E+01 -0.1000E+01 0.0000E+00 
8 0.500000E+01 0.998857E+00 -0.1000E+01 0.0000E+00 


POTENTIAL FLOWS INTO DOMAIN ACROSS BOUNDARY SEGMENTS 


SEGMENT FLOW 
iL 0.000000E+00 
2 -0.199948E+01 
3 0.000000E+00 
4 0.199948E+01 


TOTAL POTENTIAL FLOW INTO DOMAIN = 0.199948E+01 


TOTAL POTENTIAL FLOW OUT OF DOMAIN = 0.199948E+01 


POTENTIALS AT INTERNAL POINTS 


PSI Xx x 
0.399998E+01 0.1000E+01 0.1000E+01 
0.299834E+01 0.2000E+01 0.1000E+01 
0.199980E+01 0.3000E+01 0.1000E+01 


The prescribed potential boundary conditions are a value of 1 over element 2 (nodes 3, 4 and 5) on the 
right end edge (segment 2), and a value of 5 over element 4 (nodes 7, 8 and 1) on the left hand edge 
(segment 4). Segments (and elements) 1 and 3 defining the top and bottom edges had no boundary 


condition prescribed by the DATA file, so zero normal derivative conditions are assumed. 
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The computed results show that at nodes 2 and 6 (at x = 2 on the bottom and top edges, respectively) 
the exact potential value of 3 (Equations 4.9) is computed. At node 4 at the centre of the right hand edge 
the computed potential gradient is -0.9989 compared with the exact -1 (Equations 4.9), and similarly at 
node 8 at the left hand edge it is +0.9989 compared with +1 (at this edge the normal direction is in the 
negative x direction). While at node 4 the computed gradient is 0.11% too low, at the adjacent nodes 3 
and 5 it is 0.15% too high. 


The computed potential “flows” into and out of the domain across the boundary segments are both 
1.999 (to four significant figures), compared with the exact figure of 2. The computed values of potential 
at points E, F and G (Figure 4.1) are 4.000, 2.998, and 2.000 (to four significant figures), compared 
with exact values of 4, 3 and 2. Although the computed potential gradients on the left hand and right 
hand edges of the boundary fluctuate about their exact values, the smoothing and averaging effect of 
integration to produce either the flows across the boundary, or the potential at internal points, gives 


results of higher accuracy. 


Compared to the constant element results presented in Section 3.2.1 the present ones show a massive 
improvement in accuracy. Using just one quadratic element and three nodes on each of the four edges 
of the boundary gives results which are almost correct to four significant figures. This level of accuracy 
was only achieved using constant elements when about a hundred or more nodes were used on each 
boundary. Note that in comparisons between constant and quadratic elements it is the number of nodes 
used for each that is the more relevant (rather than the number of elements). This is because it is the 
number of nodes that determines the amount of computation involved in solving the linear equations, 


which at least for larger problems represents the dominant computing cost. 


For this very simple one-dimensional problem it is hardly necessary to refine the mesh because the 
accuracy of the results is already adequate for most practical engineering purposes. It is relevant, however, 
to examine the extent to which the potential gradient fluctuations over, say, the right hand boundary 
can be reduced by mesh refinement. The following is an extract from the RESULTS file for the case of 
3 elements (7 nodes) per edge of the domain for the nodes on the right hand edge. 


a PSI DPSI 

7 Q.100000E+01 -0.100164E+01 
8 0.100000E+01 -0.999107E+00 
9 0.100000E+01 -0.100136E+01 
10 0.100000E+01 -0.999213E+00 
11 0.100000E+01 -0.100136E+01 
12 0.100000E+01 -0.999108E+00 
13. 0.100000E+01 -0.100164E+01 
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With this mesh the computed flows and potentials at internal points are all exact to at least four significant 


figures, so the average gradient over the right hand edge is accurate. Similarly, with 15 nodes per edge 


I PSI DPSI 

15 0.100000E+01 -0.100171E+01 
16 0.100000E+01 -0.999152E+00 
17 0.100000E+01 -0.100139E+01 
18 0.100000E+01 -0.999261E+00 
19 0.100000E+01 -0.100137E+01 
20 0Q.100000E+01 -0.999266E+00 
21 Q.100000E+01 -0.100137E+01 
22 Q.100000E+01 -0.999262E+00 
23 Q.100000E+01 -0.100137E+01 
24 Q.100000E+01 -0.999267E+00 
25 0Q.100000E+01 -0.100136E+01 
26 Q.100000E+01 -0.999260E+00 
27 Q.100000E+01 -0.100140E+01 
28 Q.100000E+01 -0.999146E+00 
29 Q.100000E+01 -0.100172E+01 


While there is some reduction in gradient fluctuation in going from 3 nodes per edge to 7 nodes per 
edge, there is no significant further change produced by increasing to 15 nodes per edge, or indeed by 


refinement to many more than 15 nodes per edge. 


It turns out that the small fluctuations about the true value of gradient are caused by the differences 
between the (odd-numbered) end nodes and (even numbered) mid-side nodes of the elements. 
While mid-side nodes attract integral contributions from only their own elements, end notes attract 
contributions from the whole of the two elements with which they are associated. The way to reduce 
the fluctuations is to increase the accuracy of the Gaussian quadrature used, by increasing the number 
of Gauss points used in each element integration. This explains why the relatively large number of eight 
Gauss point is used here. Using more points is of course possible, but is probably unnecessary for most 


practical purposes. 


The Poisson problem 


Introducing a non-zero value of f, = 1, the exact analytical solution to the Poisson problem is given by 


Equation 3.29 


2 
w=*-3x45, ax-3 (4.10) 
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Although the analytical solution remains one-dimensional, the two-dimensional form of the particular 
integral means that the Laplace problem solved by the program, with boundary conditions which are 
now two-dimensional, is certainly two-dimensional. The only change required to file DATA is to replace 
the zero value (for f,) in the second line by the value 1., followed immediately by a new line with the 
co-ordinates of the origin for the particular integral function. The centre of the domain at x = 2.,y = 1 


is convenient. 


Again using one element on each edge of the domain as in Figure 4.1, the computed potential gradients 
at the centres of the left and right hand edges are 2.998 (node 8) and 1.000 (node 4), compared with the 
exact 3 and 1. The computed potential “flows” into the left hand and right hand edges of the domain are 
6.000 and 2.001, compared with the exact 6 and 2. The computed potential at internal point E (x = 1) 


in Figure 4.1 is 2.500, which is exact to four significant figures. 


Again, the accuracy is excellent, with hardly any need to refine the boundary element mesh beyond one 
element per edge of the domain. Clearly, the change from a Laplace to a Poisson type problem, with the 


introduction of a two-dimensional particular integral, does not adversely affect accuracy. 
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Internal points close to the boundary 


In Figure 4.1 the chosen internal points E, F and G are not close to any part of the boundary. With most 
boundary element methods, taking an internal point close to the boundary leads to loss of accuracy, due 
to the singular nature of the fundamental solutions and the use of approximate numerical integration. 
Table 4.1 shows the effect of taking internal point E from its initial position at (1, 1) progressively closer 
to the boundary at (1, 0) (not varying its x co-ordinate, x = 1). The meshes used are 1, 10 and 100 


elements per edge. 


y 3 nodes per edge 21 nodes per edge 201 nodes per edge 
1 2.4997 2.4999 2.5000 
107° 3.2869 2.4994 2.5000 
10° 2.2464 1.9037 2.5000 
10° 1.5469 1.5464 2.5344 
10“ 1.4741 1.5083 1.7276 
10° 1.4668 1.5045 1.5231 
10° 1.4661 1.5041 1.5024 
0 1.4660 1.5041 1.5000 


Table 4.1 Potential at internal points at (1,y) 


The effect of approaching the boundary is considerable. Using one element per edge, only when the 
internal point is at y = 1 is the computed potential accurate. Increasing the number of nodes per edge 
to 10, accuracy is maintained at y= 1071, and to 100 per edge it is maintained at y= 1072. In other 
words, internal points should not be taken closer than to within about a quarter of an element length 


of a boundary. 


This loss of accuracy as an internal point approaching a boundary is in direct contrast to constant elements 
(Table 3.3), where much better accuracy was obtained both very close to and on the boundary. The reason 
for this is that, while constant elements employ exact analytical integration, quadratic elements rely on 


approximate numerical integration. 


Domain aspect ratio 


Rather like taking an internal point close to a boundary, making the domain very narrow and bringing 
opposite sides of the boundary close together is likely to cause loss of accuracy. In the present problem, 
the width of the domain is twice its height, giving an aspect ratio of 2. Table 4.2 shows the effects of 
increasing this aspect ratio, by progressively reducing the depth of the domain, using a mesh of one 


element (3 nodes) per edge. 
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Aspect Potential Gradient 
ratio at node 2 at node 4 
Exact 1 1 
2 0.9989 1.0004 
4 0.9992 0.9999 
8 1.0005 0.9969 
16 0.9999 0.9844 
32 0.9790 0.9433 
64 0.9054 0.9350 


Table 4.2 Effects of varying domain aspect ratio 
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The variables selected for scrutiny are the potential at node 2, at the centre of the lower edge, and the 
potential gradient at node 4, at the centre of the right hand edge, in both cases the exact values being 1. 
There is progressive deterioration of accuracy with increasing aspect ratio, the effect becoming significant 
beyond an aspect ratio of about 8. At this aspect ratio, the distance between the top and bottom edges of 
the domain is one eighth of the length of the elements on these edges. This is actually approaching quite 
close, thanks to using eight Gaussian quadrature points per element integration which gives relatively high 
accuracy. Again there is a contrast with constant elements, which are able to maintain greater accuracy 


with increasing domain aspect ratio thanks to exact analytical integration. 


Prescribed potential gradient boundary conditions 


So far, only prescribed potential and zero potential gradient boundary conditions have been used. Staying 
with the present Poisson problem, the condition on the left hand edge can be changed from a prescribed 
potential of magnitude 5 to a prescribed gradient of 3: the problem is unchanged. If this is done using 


a mesh with one element (3 nodes) per edge, the following are obtained 

Potential at (2, 0) = 0.99915 (exact 1) 

Potential gradient at (4, 1) = 1.00009 (exact 1, previously 0.99886) 

Potential at (0, 1) = 5.0010 (exact 5, previously 5 prescribed) 
The results are, as is to be expected, not identical to those obtained when potential rather than the gradient 
is prescribed, but the accuracy is not impaired. Compared with constant elements, these results with one 


quadratic element per edge are as good as those with 61 constant elements per edge. 


This example provides a test of a situation where prescribed potential gradient boundary conditions 


change abruptly (at nodes 1 and 7 in Figure 4.1). 


Mixed boundary conditions 


Again staying with the same problem, on the left hand edge the exact solution gives the potential as 5 
and gradient as 3, so in place of either the prescribed potential or prescribed gradient, a possible mixed 


boundary condition on the edge is 


Sa yp-2 (4.11) 
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Prescribing values of a = 1 and 6 = —2 and again using a mesh of one element (3 nodes) per edge, 


the following are obtained 
Potential at (2, 0) = 0.99874 (exact 1) 
Potential gradient at (4, 1) = 1.0004 (exact 1) 
Potential at (0, 1) = 5.0004 (exact 5) 
Potential gradient at (0, 1) = 3.0004 (exact 3) 


Again there is no loss of accuracy, and the results are as least as good as those for constant elements 


using 61 nodes per edge. 


This example provides a test of a situation where boundary conditions change from prescribed potential 


gradient to mixed type (at nodes 1 and 7 in Figure 4.1). 


4.2.2 A thick-walled cylinder test problem 


The second test is designed to demonstrate the ability of the program to solve problems with curved 
boundaries, problems with more than one boundary, and the use of elements of varying size along a 
boundary segment. Figure 3.3 shows the cross-section of a thick-walled circular cylinder with internal 
and external radii of r, and r,. The boundary conditions are prescribed potentials of 1 and w, at the 
inner and outer surfaces, respectively. A practical engineering application would be to heat conduction 


through the walls of a cylinder with different temperatures at the two curved surfaces. 


The analytical solution to the problem is derived in Section 3.2.2, leading to Equations 3.34 and 3.35 for 


the potential and potential gradient distributions 


Ing 
w= +2? — rf) + [Ge — a) - 202 - 7) (4.12) 


dp _ fir f; 1 
ros oe + [ob2 — Wi) - a (rf - r?)| rine (4.13) 
TI 
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Laplace problem 


Consider first the Laplace problem with f, = 0, corresponding to thermal conduction with no heat 
generation or absorption within the wall of the cylinder. Take the case where ry = 1, 72 = 10, p, =8, 
and > = 1. The ratio between the outer and inner radii is chosen to be quite large for reasons that 


should become clearer later. With these data, the potential and potential gradient distributions are 


wy = 8 — 3.04006 Inr (4.14) 
d 3.04006 
a == (4.15) 


The potential values at typical internal points are at r = 4, w = 3.7856 and atr = 7, = 2.0843, 
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Bearing in mind that program BEM2PQ cannot accept boundary segment specifications with angles 


greater than 180°, the simplest mesh to represent the geometry shown in Figure 3.3 requires four 


segments, two on the outer boundary with end points arbitrarily chosen at (10, 0) and (-10, 0), and two 


on the inner boundary with end points at (0, -1) and (0, 1). These end points are the points numbered 


1 to 4 in Figure 3.3. The following is an annotated DATA input file for this problem, for the case of four 


elements (9 nodes) per semi-circular segment, two per quadrant. This means that each element has to 


represent an arc of 45° by means of a parabolic (quadratic) curve passing through both the ends and 


midpoint of the arc. The file calls for potentials to be computed at two internal points, on the x axis at 


radii of 4 and 7. 


THICK-WALLED CYLINDE 
O. 

2 

2 

O. Ov -—LO. 0 

10. 4 1 

10. 4 1 

2 


(Value of f1) 

(Number of boundaries) 

(Number of segments on first boundary) 
(Co-ordinates of the segment ends) 
(Radii of curvature, numbers of elements 
and length ratios) 

(Number of segments on second boundary) 
(Co-ordinates of the segment ends) 
(Radii of curvature, numbers of elements 
and length ratios) 

(Four prescribed boundary potentials) 
(Potential on segment 1) 

(Potential on segment 2) 

(Potential on segment 3) 

(Potential on segment 4) 

(Number of internal points) 
(Co-ordinates of first internal point) 


(Co-ordinates of second internal point) 


Table 4.3 shows the results obtained for meshes ranging from one element per quadrant up to four 


elements per quadrant. For the computed gradients, two values are shown, the first for element end 


nodes, and the second for midside nodes. 


Download free eBooks at bookboon.com 


Elements Gradient Gradient Potential Potential Flowin Flow out 
per quadrant atr=1 atr=10 at (4, 0) at(7,0) atr=1 atr=10 


Exact 3.0401 -0.30401 3.7856 2.0843 19.101 19.101 


1 3.069 -0.3054 3.7767. ~—s- 2.0752 -s:19.094 19.002 
3.047 -0,3033 

2 3.046 -0.3044 3.7850 2.0839 «19.100 ~—S-19.091 
3.038 -0.3037 

3 3.044 0.3044 3.7855. 2.0843 -~—:19.100 19.097 
3.038 -0.3037 

4 3.044 0.3044 3.7856 ~—S 2.0844 ~—19.100 19.100 
3.038 -0.3038 


Table 4.3 Results for the thick-walled cylinder Laplace problem 


Since the problem is axisymmetric it is to be expected that the computed gradients at all the nodes on the 
inner boundary would be identical, and similarly for all the nodes on the outer boundary. This proves to 
be the case, but for expected fluctuations between the values at element end nodes and midside nodes. 
These do not improve with mesh refinement beyond two elements per quadrant. At two elements per 
quadrant the results, and particularly the results smoothed by integration to give potential at internal 
points or flows in and out of the domain, are almost correct to four significant figures, which is adequate 
for most practical purposes. In this case each element covers a circular arc of 45°, which demonstrates 
the ability of quadratic elements to accurately model curved boundaries. Sixteen elements having 32 


nodes are sufficient to model this multiply-connected solution domain. 


Given the very superior performance of quadratic elements over constant ones for problems with 
straight boundaries, it is not at all surprising that this superiority is maintained for problems with curved 


boundaries, for which they are even more obviously better suited. 


Poisson problem 


Consider the same problem, but of the Poisson type with f; = —1, corresponding to thermal conduction 


with heat generation within the wall of the cylinder. Equations 4.12 and 4.13 reduce to 


2 
p = 8.25 — 7 — 7.70872 Inr (4.16) 
d 7.70872 
_ — ; eas (4.17) 
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Hence, the gradients at the inner and outer surfaces of the cylinder are 7.2087 and -4.2291, respectively. 
The potential values at typical internal points are at r = 4, wp = 14.937 andat r =7 w = 11.000. The 
origin for the particular integral function for this Poisson problem is taken as the centre of the cylinder, 


which in this case coincides with the origin chosen for the global co-ordinates. 


Table 4.4 again shows the results obtained for meshes ranging from one element per quadrant up to 
four elements per quadrant. For the computed gradients, two values are shown, the first for element end 


nodes, and the second for midside nodes. 


Elements Gradient Gradient Potential Potential Flowout Flow out 
per quadrant atr=1 atr=10 = at(4,0)  at(7,0) atr=1 atr=10 


Exact -7.2087 -4.2291 14.937 11.000 45.294 265.72 


1 -7.283 -4.226 14.959 11.024 45.293 264.30 
-7.228 -4.231 

2 -7.223 -4.228 14.938 11.001 45.290 265.63 
-7.205 -4.230 

3 -7.220 -4.228 14.937 11.000 45.291 265.71 
-7.203 -4.230 

4 -7.219 -4.228 14.937 11.000 45.292 265.72 
-7.203 -4.230 


Table 4.4 Results for the thick-walled cylinder Poisson problem 


The trends are very similar to those observed for the Laplace version, with good accuracy at two elements 


per quadrant, and little improvement beyond that level of mesh refinement. 


Use of Symmetry 


Returning to the Laplace problem, there is no need to analyse the whole of this axisymmetric problem, 
but only a small part of it. Figure 3.4 shows one quadrant of the thick-walled cylinder with the relevant 
boundary conditions on the curved surfaces. The normal gradients on the planes of symmetry that cut 
through the cylinder walls are zero. Of course, a slice substantially smaller than a quadrant could have 
been analysed. Not only is the size of the problem reduced, but it has been simplified from multiply- 
connected (two boundaries) to singly-connected (one boundary). It remains to be seen what benefits, if 


any, this offers. The boundary is divided into four segments, with the numbered end points as shown. 
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Table 4.5 shows the results obtained for meshes ranging from one element per segment of the cylinder 
quadrant (one element on each of the curved parts of the boundary) up to four elements per segment. 
These should be compared with Table 4.3 for the whole cylinder. Note that the internal points for potential 
evaluation are at G =) and G >) at r = 4 and r = 7, but no longer on the axis, which now forms 
part of the boundary. The magnitudes of the potential flows in and out of the domain are reduced by 
factors of 4 because only a quarter of the problem is now being considered. For the computed gradients, 
two values are shown, the first for end nodes, and the second for midside nodes, of the elements on 
the curved surfaces at the corner segment ends (numbered 1 and 4 for the inner surface, 2 and 3 for 


the outer surface, in Figure 3.4). These upper and lower values are the maximum values and minimum 


values for the inner and outer curved surfaces, respectively. 
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Elements Gradient Gradient Potential Potential Flow in Flow out 
persegment atr=1 atr=10 atr=4 atr=7 atr=1 atr=10 


Exact 3.0401 -0.30401 3.7856 2.0843 4.7753 4.7753 


1 3.618 -0.3107 3.9083 2.1104 4.6514 4.8267 
2.620 -0.3079 

2 3.500 -0.3048 31899 2.0807 4.7172 4.7619 
2.857 -0.3026 

a 3.420 -0.3041 3.7805 2.0814 4.7460 4.7635 
2.906 -0.3029 

4 Jee -0.3041 3.7814 2.0824 4.7589 4.7672 
2.934 -0.3032 


Table 4.5 Results for the thick-walled cylinder quadrant Laplace problem 


The computed gradients on the inner curved part of the boundary vary by far more than the expected 
fluctuation from end node to midside in each element. The results overall are substantially inferior to 


those in Table 4.3 for the same problem. 


The explanation for this behaviour is the nature of the mesh applied to this particular geometry. A thick- 
walled cylinder geometry with external radius ten times the internal radius was chosen deliberately so 
that the potential varies much more rapidly with radius at the inner surface than at the outer surface. 
When the whole cylinder was analysed this was not an issue. But the use of a small number of elements 
over the lines of symmetry of one quadrant of the cylinder does not adequately model the variation of 


potential there. 


Experience so far suggests that two quadratic elements per quadrant provide satisfactory modelling of 
a circular curved boundary when the potential and potential gradient do not change significantly along 
the arc. Table 4.6 shows the results obtained when the mesh has two elements on each of the curved 
boundaries, but a number of uniformly sized elements on the straight segments of the boundary varying 
from 2 to 16. 
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Elements Gradient Gradient Potential Potential Flowin Flow out 
per straight atr=1 atr=10 atr=4 atr=7 atr=1 atr =10 
segment 


Exact 3.0401 -0.30401 3.7856 2.0843 4.7753 4.7753 


2 3.500 -0.3048 3.7899 2.0807 4.7172 4.7619 
2.857 -0.3026 

4 3.176 -0.3041 3.7817 2.0823 4.7612 4.7667 
2.985 -0.3029 

8 3.069 -0.3044 3.7844 2.0836 4.7731 4.7714 
3.029 -0.3036 

16 3.048 -0.3045 3.7850 2.0839 4.7749 4.7723 
3.038 -0.3036 


Table 4.6 Results for the thick-walled cylinder quadrant Laplace problem,with two elements on each curved boundary 


The critical result is that for the potential gradient at r = 1, in the first column of results. Using 16 
elements on each of the straight segments (36 elements in total) gives results here similar to those in 
Table 4.3 for the whole problem using 2 elements per quadrant, only 16 elements in total. So, in this 
case there is no computational benefit in using symmetry to reduce the size of the solution domain. But, 
using 16 uniform elements on each of the straight segments is inefficient: while smaller elements are 


required at the inner surface of the cylinder, this is not necessary at the outer surface. 


The use of non-uniform distributions of elements over the straight segments should be helpful. The 
method of varying the elements sizes which is implemented in the program is described in Sections 3.1.3 
and 4.1.3. The key parameter is S, the ratio between the lengths of successive elements in the direction 
of numbering. A value of greater than unity is required on the first segment joining the end points 
numbered 1 and 2 in Figure 3.4, to ensure that the element size increases from point 1 towards point 2. 
On the other hand, on the third segment joining points 3 and 4, the corresponding ratio should be 1/S 


, to ensure that element size decreases from point 3 towards point 4, in the direction of numbering. 


Table 4.7 shows the effect of increasing the length ratio S applied in this way from unity up to 5.0. The 


mesh used has two elements on each of the curved surfaces, and 4 on each of the straight ones, 12 in total. 
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1.2 


1.4 


1.6 


1.8 


2.0 


2.2 


5.0 


Table 4.7 Effects of varying element length ratio for a mesh of two elements per quadrant and four elements per 


Gradient 
atr=1 


3.0401 


3.176 
2.985 


3.113 
3.010 


3.079 
3.024 


3.062 
3.032 


3.055 
3.035 


3.052 
3.036 


3.051 
3.037 


3.075 
3.027 


straight segment 


While there is a steady improvement in gradient values at the inner cylinder surfaces for ratios up to 2.2, 
there is some deterioration in the values at the outer surface. Further increasing the ratio only makes 
matters worse: the last case of a ratio of 5.0 is deliberately excessive. Overall, the optimum ratio is around 
2.0, at which the results are similar in accuracy to those for the whole problem using 16 elements. There 
is no significant computational benefit in this case in taking advantage of symmetry, but if the reduced 


domain is analysed it is important to use non-uniform element distributions on the lines of symmetry 


Gradient 
atr = 10 


-0.30401 


-0.3041 
-0.3029 


-0.3043 
-0.3035 


-0.3044 
-0.3036 


-0.3045 
-0.3036 


-0.3046 
-0.3036 


-0.3047 
-0.3036 


-0.3048 
-0.3035 


-0.3081 
-0.3026 


Potential 
atr=4 


3.7856 
3.7817 


3.7833 


3.7844 


3.7851 


3.7855 


3.7860 


3.7865 


3.8034 


Potential 
atr = 7 


2.0843 
2.0823 


2.0831 


2.0836 


2.0840 


2.0842 


2.0845 


2.0848 


2.0921 


Flow in 
atr=1 


4.7753 
4.7612 


4.7685 


4.7720 


4.7735 


4.7741 


4.7743 


4.7743 


4.7692 


Flow out 
atr= 10 


4.7753 
4.7667 


4.7695 


4.7712 


4.7722 


4.7727 


4.7731 


4.7735 


4.7815 


to give small elements in regions of the domain boundary where the variables change rapidly. 


4.3 An Example: Downstream Viscous Flow in a Rectangular Channel 


A more practical problem for solution by program BEM2PQ is the viscous channel flow problem described 


in Section 1.2.1, and solved using constant boundary elements in Section 3.3. 
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Analytical solution 


As explained in Section 3.3, the analytical solution to the problem leads to the equation in dimensionless 


variables displayed in Equation 3.46 


Fp 1pFp 
ir eee” (4.18) 
The dimensionless flow rate and pressure gradient are defined as 
Q P,H2 
TQ = WHY,’ Tp = uv, (4.19) 


The drag and pressure flow shape factors are given in series form by Equations 3.44 and 3.45. 


The problem 


The problem is to use quadratic boundary element program BEM2PQ to compute the values of 
dimensionless flow rate, 7g, for a series of values of dimensionless pressure gradient, tp, of —2,0, 2 
and 4, for a channel that is five times as wide as it is deep. For H/W = 0.2 the particular form of 


Equation 4.18 is 


Tq = 0.4457 — 0.07283 mp (4.20) 
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where the constants are given to four significant figures. Note again that a positive pressure gradient, 
indicating pressure increasing with z normal to the channel cross-section in the direction of the 
movement of the top boundary tends to cause flow in the opposite direction, and hence a reduction in 


the overall flow rate. A negative pressure gradient, on the other hand, enhances the flow rate. 


Integration of potential over the domain 


Before attempting to solve the problem, it is necessary to extend the program to compute the integral of 


potential over the solution domain in order to be able to find the volumetric flow rate. 


To write a piece of program to meet this requirement for any domain, of arbitrary shape with an arbitrary 
number of boundaries, is not straightforward, and is beyond the scope of this book. The approach adopted 
is therefore to modify subprogram INTERNAL, very much as described in Section 3.3 for the constant 
element program, to carry out the required integration for a domain which is rectangular in shape (but 
of arbitrary depth to width ratio), and has values of potential prescribed on each of its four edges (the 
four values can be different). Figure 3.5 shows the channel cross-section with its boundary divided into 


four segments, with their ends numbered in order from the bottom left hand corner. 


SUBROUTINE INTERNA 


! SUBPROGRAM TO FIND AND OUTPUT THE INTEGRAL OF POTENTIAL OVER THE 


! AREA OF THE SOLUTION DOMAIN. 


! THIS VERSION IS DESIGNED FOR A RECTANGULAR DOMAIN. 


USE SHAREDDATA2 PQ 


REAL :: PSIVAL(300),YINTGL(300) 


3 


! INPUT THE NUMBERS OF SAMPLING POINTS INSIDE THE DOMAIN IN TH 


ea] 
bad 


! AND Y DIRECTIONS, WHICH SHOULD BOTH BE ODD. 


| 
<S 
oO 
is) 
4 
~*~ 
No 
| 
HK 
ae 
ea 
Z 


WRITE(6,61) NX 


61 FORMAT (/ "WARNING - NX =",14," NOT ODD - INCREASE BY 1") 
NX=NX+1 
END IF 
IF (MOD(NY,2) == 0) THEN 


WRITE(6,62) NY 


62 FORMAT (/ "WARNING - NY =",14," NOT ODD - INCREASE BY 1") 
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63 


IF(NX+2 > 300 
WRITE (6, 63) 


FORMAT (/ "N 
& " 
STOP 
END IF 


FIND PRESCRIBED 


IF (ISEGBC (IBC 
IF (ISEGBC (IBC 
IF (ISEGBC (IBC 


Quadratic Boundary Element Program for Potential Problems 


-OR. NY+2 > 300) TH 


isa 
Z 


NX, NY 


X =",16,5X,"NY =",16,5X, "ARRAY DIMENSIONS EXCEEDED", 


IN INTEGRATION OVER DOMAIN") 


BOUNDARY VALUES OF POTENTIAL. 
For each segment in turn: DO IBCP=1,NBCP 

P) == 1) PSIBOT=PSISEG(IBCP) 

P) == 2) PSIRIGHT=PSISEG(IBCP) 

P) == 3) PSITOP=PSISEG(IBCP) 

P) == 4) PSILEFT=PSISEG(IBCP) 


IF (ISEGBC (IBC 
END DO For ea 


FIND COORDINATES 
YBOT=YSEND (1) 


XRIGHT=XSEND ( 


YTOP=YSEN 


D 
XLEFT=XSEND (4 


ch segment in turn 


OF DOMAIN SID 


Gl 
n 


OUTER LOOP FOR INTEGRATION IN X DIRECTION. 


HX= (XRIGHT-XL 


HY= (YTOP-YBOT 
IXMAX=NX+2 
ITYMAX=NY+2 


EFT) /FLOAT (NX+1) 


) /FLOAT (NY+1) 


YINTGL (1) =PSILEFT* (YTOP-YBOT) 


YINTGL (IXMAX) 
For each X po 


PSIVAL (1) =PSI 


PSIVAL (IYMAX 


~~ 


XPOINT=XLEFT+ 


=PSIRIGHT* (YTOP-YBOT) 


sition in turn: DO IX=2,IXMAX-1 


BOT 
=P51. TOP 


HX* FLOAT (IX-1) 


INNER LOOP FOR INTEGRATION IN Y DIRECTION. 


FIRST FIND POTENTIALS AT THE INTERNAL POINTS. 


For each Y po 


sition in turn: DO IY=2, IYMAX-1 


YPOINT=YBOT+HY* FLOAT (IY-1) 


XP=XPOINT/MAX 


YP=YPOINT/MAX 


lu 


aie 
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! INTEGRATE ROUND THE BOUNDARY. 


= 


SUM=0. 
Each element in turn: DO M=1,NEL 


Each element node in turn: DO IN=1,3 


J=NODE (M, IN) 


! FIND THE POTENTIAL GRADIENT AT THE NODE, EITHER AS COMPUTED 


= 


! IF POTENTIAL WAS PRESCRIBED, OR FROM THE PRESCRIBED GRADIENT 


! OR MIXED BOUNDARY CONDITIONS. 
IF (IBCE(M) == 1) DPSISTORE=DPSI (J) 
IF (IBCE(M) == 2) DPSISTORE=STORE (M) *MAXL-DPSIPIM (M, IN) 
IF (IBCE(M) == 3) DPSISTORE= (ALPHA (M) *PSIT(J)+BETA (M) ) *MAXL 
& -DPSIPIM(M, IN) 


! APPLY GAUSSIAN QUADRATURE. 


Each Gauss point in turn: DO IGAUSS=1,NGAUSS 
IT=1 
IC=1 


CALL JACOBI (M, IGAUSS, IT, IC) 


EXPERIENCE THE POWER © 
FULL ENGAGEMENT... 


RUNFASTER.  —_[| 7 \™ 
RUNLONGER. | —-\iw 


RUN EASIER... ~~ 
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CALL KERNEL (XP, YP,M, IGAUSS, AK, BK) 


SFN=SF (IN, IGAUSS) 


SUM=SUM+WG (IGAUSS) *SFN* JACOB* (-AK* PSI (J) +BK* DPSISTORE) 


END DO Each Gauss point in turn 


END DO Each element node in turn 


END DO Each element in turn 


PSTIP=SUM*0.5/PI 


PSIIPT=PSIIP 


! ADD THE PARTICULAR INTEGRAL FOR A POISSON TYPE PROBLEM. 


IF(Fl /= 0.) THEN 

XX=XP-XC 

YY=YP-YC 
PSIIPT=PSLIIPT+O.25*F1* (XX**24+YVY**2) 
END IF 


UW 


SIVAL (IY) =PSIIPT 


END DO For each Y position in turn 


! INTEGRATE POTENTIAL IN Y DIRECTION. 


UM=0. 


or alternate points in the Y direction: DO IY=2,IYMAX-1,2 


n WN 


UM=SUM+PSIVAL (IY-1)+4.*PSIVAL (IY) +PSIVAL (IY+1) 


END DO For alternate points in the Y direction 


YINTGL (1X) =SUM*HY/3. 


END DO For each X position in turn 


! NOW INTEGRAT 


r 


IN X DIRECTION. 


SUM=0. 
For alternate points in the X direction: DO IX=2,IXMAX-1,2 
SUM=SUM+YINTGL(IX-1)+4.*YINTGL (1X) +YINTGL (IX+1) 


END DO For alternate points in the X direction 


PSI INTG=SUM*HX/3. 


AREA= (XRIGHT-XLEFT) * (YTOP-YBOT) 


APSIINTG=PSIINTG/AREA 


! OUTPUT RESULT. 


WRITE (6,64) PSIINTG, APSIINTG, NX, NY 
64  FORMAT(/ "INTEGRAL OF POTENTIAL OVER SOLUTION DOMAIN =",E15.6, 
& / “AREA AVERAGE OVER SOLUTION DOMAIN =",E15.6, 
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& / “NUMBERS OF INTERNAL POINTS IN X AND Y DIRECTIONS =", 


& I5,5X,"AND", I5) 


RETURN 


END SUBROUTINE INTERNAL 


This version of subprogram INTERNAL differs from that described in Section 3.3 only in the way that 
values of potential at internal points are computed - which now follows that established for quadratic 
boundary elements. The numbers of internal points in the two global co-ordinate directions to be used 


for numerical integration (NX and NY) are the only data that have to be read in. 


Application to channel flow 


The boundary conditions used are shown in Figure 3.5: a unit value of potential on the top edge, zero 
on the other three. The Poisson equation function is f; = 7p, and the dimensionless flow rate Tq is 
obtained as the computed area average of the integral of potential (downstream velocity) over the channel 


cross-section. 


Choosing the number of internal points for integration in each of the two global co-ordinate directions 
(NX and NY) requires much more care than when using constant boundary elements. This is because 
with quadratic elements, requiring approximate numerical integration, internal points must not be located 
very close to domain boundaries. To avoided further complexity, for present purposes it is assumed that 
the same numbers of points are used in the two directions (NX=NY). Because the channel domain in the 
present problem is much shallower than it is wide, it is the number of internal points in the y direction 
(NY) that is the more significant. Consider, for example, the situation where 10 elements are used to 
model each of the top and bottom domain edges, a level of refinement that earlier investigations would 
suggest is very adequate to compute accurate results on the boundary. With a channel 5 units wide, 
each of the horizontal elements is 0.5 units long. If an internal point is not to approach closer than, say, 
a quarter of an element length to a boundary, the closest is at 0.125. The channel is only 1 unit deep, 
so this implies not more than 7 internal points in the y direction, which is unlikely to give an accurate 
value for the integral over the domain. Taking, for example, 1p = —2, for which the exact dimensionless 
flow rate is 7g = 0.5914, Table 4.8 shows the flow rates obtained when using 10 quadratic elements on 


each of the four domain edges, and a range of numbers of internal points 


NX and NY 1) 
9 0.5859 
15 0.5898 
19 0.5850 
29 0.5829 


Table 4.8 Effect of internal point refinement on the computed domain integral 
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The first feature to note is the relatively poor accuracy using so many boundary elements. While 
increasing the number of internal points does offer some improvement, beyond about 15 points the 
accuracy declines again. Improvement in integration accuracy is offset by loss of accuracy in computing 
values of potential close to the upper and lower edges of the domain. This behaviour is typical of other 
values of 7p and other levels of boundary element mesh refinement: optimum accuracy of flow rate is 
obtained when the number of internal points (in each direction) is about 50% greater than the number 
of quadratic elements on each edge of the domain. This is an empirical observation, applicable only to 


the current problem, the determining factor being the closeness of the internal points to the boundary. 


The only way to improve the computed flow rate is to refine the boundary element mesh, which allows 
more internal points to be used. In order to permit a direct comparison with Table 3.9 for constant 
elements, Table 4.9 shows the results obtained for the relationship between 7g and 7p for the same 
range of number of nodes per edge of the domain from 7 to 241. The origin chosen for the particular 


integral function is the centre of the channel, at (2.5, 0.5). 
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Nodes peredge NXandNY P= —2 Tp = 0 Mp =2 Tp = 


Exact 7a 0.5914 0.4457 0.3000 0.1544 
7 5 0.5588 0.4251 0.2915 0.1579 
15 11 0.5897 0.4425 0.2953 0.1481 
31 23 0.5908 0.4449 0.2991 0.1532 
61 45 0.5911 0.4455 0.2998 0.1542 
121 91 0.5913 0.4457 0.3000 0.1544 
241 181 0.5914 0.4457 0.3000 0.1544 


Table 4.9 Dimensionless flow rates for H/W = 0.2 


Comparing Tables 3.9 and 4.9, it is clear that, for the same numbers of nodes per edge, the results for 
constant and quadratic elements are very similar, particularly for the more refined meshes. Making 
comparisons for the same number of nodes per edge is appropriate, because it is the number of nodes 
(rather than elements) which determines the size of the problem, in particular the number of equations 
to be solved. There is of course a slight difference between constant and quadratic elements in the total 
number of nodes for a given number of nodes per edge because quadratic elements share nodes at the 
four corners. Both Tables 3.9 and 4.9 show that four significant figure accuracy can be obtained, but only 
at the expense of using a great many boundary elements. The advantages of quadratic elements are lost, 


due to their limitations over permissible closeness of internal points to the boundary. 


44 An Example: Heat Conduction in a Domain of Complex Shape 


As a final example, involving varieties of both geometric features and boundary conditions, consider the 
heat conduction in the domain shown in Figure 4.2. This represents the cross-section of a long uniform 
component. The letters A to P in the figure label particular points on the domain boundary: either 
corners, changes in geometry from straight to curved, or in the cases of M, N, O and P at the ends of the 
horizontal hole diameters. An origin for global co-ordinates can be chosen to be at the bottom left hand 
corner of the figure, at the centre of arc LA. The two circular holes of radii 15 and 10 mm are centred at 


(35, 75) and (115, 85), respectively, and the co-ordinates (in mm) of the labelled points are as follows: 


A at (30,0)  Bat(65,0) Cat(65,45) Dat(95,45) Eat (95, 0) 
Fat (125,0) Gat(140,15) Hat (140, 120) I at (110, 120) J at (30, 120) 
Kat (0,120) Lat(0,30) | Mat(50,75) Nat(20,75) Oat (125, 85) 
P at (105, 85) 
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Thermal conductivity of the material is 1.2 W/meC. Heat is conducted into the domain at a uniformly 
distributed rate over the surface BCDE, the total rate being 500W per metre of length in the direction 
normal to the domain. The curved surface IJ is maintained at a uniform temperature of 150°C. The 
two circular channels represented by the holes in the cross-section carry a cooling fluid with a bulk 
temperature of 10°C, and the surface heat transfer coefficient for both channels is 200 W/m’°C. Surface 
LA is thermally insulated. The remaining parts of the boundary are exposed to the atmosphere at a 
temperature of 20°C, and the surface heat transfer coefficient is 20 W/m”C. The problem is to find the 


rates of heat transfer to the cooling fluids in the two channels. 


All dimensions in mm 


Figure 4.2 Heat conduction problem 


Starting from point A, the boundary segments are defined as follows: 


AB: 1 BC:2 CD:3 DE:4 EF:5 FG:6 GH:7 
HI:8 JJ:9 JK: 10 KL: 11 LA: 12 MN: 13 NM: 14 
OP: 15 PO: 16 


At least in the first instance, two quadratic elements per quadrant are applied to arcs CD, FG and LA, 


also to the two holes, and three elements to arc IJ. Segments AB, BC, DE, EF, HI and JK each have one 
element, while GH and KL have two. 
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The specified heat transfer rate must be translated into a prescribed temperature gradient over the 
relevant part of the boundary. The perimeter of semi-circle CD is 7 x 15 = 47.12 mm, or 0.04712 m. 
Adding in 45 mm each for BC and DE gives a total length for BCDE of 0.1371 m. The heat transfer 
rate over the surface is therefore 500/0.1371 =3647 W/m”, and the temperature gradient is 3647/ 
1.2 = 3039°C/m. 


Comparing Equations 1.57 and 2.32, the coefficients a and f/f for a mixed boundary condition in a 
heat conduction problem can be expressed in terms of the surface heat transfer coefficient, thermal 


conductivity, and bulk temperature of the cooling medium as 


h hTo 
Ce) f= (4.21) 


So, for the circular cooling channels 


= = = 166.7 1/m, paS = 1667 °C/m (4.22) 


and for the surfaces exposed to atmosphere 


— 2 = —16.67 1/m, p= = 3333 0 °C /m (4.23) 


Deloitte. 


Discover the truth at www.deloitte.ca/careers © Deloitte & Touche LLP and affiliated entities. 
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The input DATA file is as follows. There are three boundaries. The first is made up of 12 segments, whose 
ends are the points labelled A to L in Figure 4.2, and whose co-ordinates are given in metres measured 
from an origin at the centre of arc LA. The second and third boundaries are the two circular holes, each 


made up of two segments with end points M to P. 


HEAT CONDUCTION PROBLEM 


Os (Laplace problem) 
3 (Number of boundaries) 
12 (Number of segments on 1“ boundary) 


0.030 0. 0.065 0. 0.065 0.045 0.095 0.045 0.095 0. 
0.125 0. 0.140 0.015 0.140 0.120 0.110 0.120 
0.030 0.120 0. 0.120 0. 0.030 (Co-ordinates of segment ends) 


O. 1] 

O. 11. (Radii of curvature, 

-0.015 4 1. number of elements, 

Oe has and element length ratio 

Os de de. for each of the 12 segments in turn) 
0.015. 2 1 

O. 2 ] 

O. 1] 

-0.050 3 1 

O. 1] 

On 2 al 

=0.030: 2° 1. 

2 (Number of segments on 2"¢ boundary) 
0.050 0.075 0.020 0.075 (Co-ordinates of segment ends) 
-0.015 4 1. (Segment element data) 

-0.015 4 1. 

2 (Number of segments on 3" boundary) 
0.125 0.085 0.105 0.085 (Co-ordinates of segment ends) 
-0.010 4 1. (Segment element data) 

-0.010 4 1. 

13 11 (Numbers of boundary conditions) 
cm oie (Segment and prescribed potential) 
2 3039. (Segment numbers and 

a. 2039 prescribed gradients) 

4 3039 

1 =16.67 333.3 
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10 -16.67 333.3 
11, =16.67 333.3 
13 -166.7 1667 
4 -166.7 1667. 
15 -166.7 1667 
16 -166.7 1667. 


(Mixed boundary conditions: 


segment number, with q@ and f, 


for 11 segments) 


(No internal points) 


Segment 9 (IJ) is subject to prescribed temperature (potential), while segments 2, 3, and 4 (surface 


BCDE) have nonzero temperature gradient prescribed. Segment 12 (LA) does not appear in the boundary 


conditions because it is subject to zero temperature gradient. The remaining 11 segments have mixed 


boundary conditions, defined by Equations 4.22 and 4.23. No results for internal points are required. 


The mesh data output file MESHRES is as follows. There are 37 elements, with 74 nodal points. 


GEOMETRIC DATA FOR THE M 


ESH 


NUMBER OF 


NUMBER OF 


NODAL POINTS 


COORDINATES OF THE NODAL POINTS 


I X 

1 0.3000E-01 

3 0.6500E-O01 

5 0.6500E-O01 

7 0.6939E-O1 

9 0.8000E-01 
11 0.9061E-01 
13 0.9500E-01 
15 0.9500E-01 
17 0.1250E+00 
19 0.1356E+00 
21 0.1400E+00 


je) (=) [es) oO SS (ee) (3) jo) (o>) (=) (=) 
. . . . . . 


-1074E-08 
-0000E+00 
-4500E-01 
-5561E-01 


E-O1 
E-O1 
E-O1 
E+00 
E+00 
E-O02 
E-O1 
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aD *® ND 


= 74 
I Xx Y 
0.4750E-01 0.0000E+00 
0.6500E-01 0.2250E-01 
0.6614E-01 0.5074E-01 
0.7426E-01 0.5886E-01 
0.8574E-01 0.5886E-01 
0.9386E-01 0.5074E-01 
0.9500E-01 0.2250E-01 
0.1100E+00 0.0000E+00 
0.1307E+00 0.1142E-02 
0.1389E+00 0.9260E-02 
0.1400E+00 0.4125E-01 


i he) = 
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23 0.1400E+00 0.6750E-01 24 0.1400E+00 0.9375E-O01 
25 0.1400E+00 0.1200E+00 26 0.1250E+00 0.1200E+00 
27 0.1100E+00 0.1200E+00 28 0.9898E-01 0.1093E+00 
29 0.8521E-01 0.1024E+00 30 0.7000E-01 0.1000E+00 
31 0.5479E-01 0.1024E+00 32 0.4102E-01 0.1093E+00 
33 0.3000E-01 0.1200E+00 34 0.1500E-01 0.1200E+00 
35 0.0000E+00 0.1200E+00 36 0.0000E+00 0.9750E-01 
37 0.0000E+00 0.7500E-01 38 0.0000E+00 0.5250E-01 
39 0.0000E+00 0.3000E-01 40 0.1148E-01 0.2772E-01 
41 0.2121E-01 0.2121E-01 42 0.2772E-01 0.1148E-01 
43 0.5000E-01 0.7500E-01 44 0.4886E-01 0.6926E-01 
45 0.4561E-01 0.6439E-01 46 0.4074E-01 0.6114E-01 
47 0.3500E-01 0.6000E-01 48 0.2926E-01 0.6114E-01 
49 0.2439E-01 0.6439E-01 50 0.2114E-01 0.6926E-01 
51 0.2000E-01 0.7500E-01 52 0.2114E-01 0.8074E-01 
53 0.2439E-01 0.8561E-01 54 0.2926E-01 0.8886E-01 
55 0.3500E-01 0.9000E-01 56 0.4074E-01 0.8886E-01 
57 0.4561E-01 0.8561E-01 58 0.4886E-01 0.8074E-O01 
59 0.1250E+00 0.8500E-01 60 0.1242E+00 0.8117E-01 
61 0.1221E+00 0.7793E-01 62 0.1188E+00 0.7576E-01 
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63 0.1150E+00 0.7500E-01 64 0.1112E+00 0.7576E-01 
65 0.1079E+00 0.7793E-01 66 0.1058E+00 0.8117E-01 
67 0.1050E+00 0.8500E-01 68 0.1058E+00 0.8883E-01 
69 0.1079E+00 0.9207E-01 70 0.1112E+00 0.9424E-01 
71 0.1150E+00 0O.9500E-01 72 0.1188E+00 0.9424E-01 
73: 0.1221E+00 0O.9207E-0O1 74 0.1242E+00 0.8883E-01 


ELEMENT NODE NUMBERS 


M ND1 ND2 ND3 M ND1 ND2 ND3 
11 2 3 2 3 4 5 
35 6 7 4 7 8 9 
329 10 11 6 11 12 13 
713 14 15 8 15 16 17 
917 18 19 10 19 20 21 
Li 27 22 23 12 23 24 25 
13 25 26 27 14 27 28 29 
15 29 30 31 16 31 32 33 
17 33 34 35 18 35 36 37 
19 37 38 39 20 39 40 41 
21 41 42 1 22 43 44 45 
23 45 46 47 24 47 48 49 
25 49 50 51 26 51 52 53 
27 93 54 39 28 29 56 57 
29.37 58 43 30 59 60 61 
31 61 62 63 32 63 64 65 
33:65 66 67 34 67 68 69 
35 69 70 71 36 71 72 73 
37 73 74 59 


The RESULTS file is as follows. 


QUADRATIC BOUNDARY ELEMENT SOLUTION FOR TWO DIMENSIONAL POTENTIAL PROBLEM 


HEAT CONDUCTION PROBLEM 


LAPLACE EQUATION 


PRESCRIBED POTENTIAL BOUNDARY CONDITIONS 
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POTENTIAL = 0.1500E+03 ON ELEMENTS 14 TO 16 


PRESCRIBED POTENTIAL GRADIENT BOUNDARY CONDITIONS 

GRADIENT = 0.3039E+04 ON ELEMENTS 2 TO 2 
GRADIENT = 0.3039E+04 ON ELEMENTS 3 TO 6 
GRADIENT = 0.3039E+04 ON ELEMENTS 7 TO 7 
PRESCRIBED MIXED BOUNDARY CONDITIONS 

ALPHA = -0.1667E+02 BETA = 0.3333E+03 ON ELEMENTS 1 TO 1 
ALPHA = -0.1667E+02 BETA = 0.3333E+03 ON ELEMENTS 8 TO 8 
ALPHA = -0.1667E+02 BETA = 0.3333E+03 ON ELEMENTS 9 TO 10 
ALPHA = -0.1667E+02 BETA = 0.3333E+03 ON ELEMENTS 11 TO 12 
ALPHA = -0.1667E+02 BETA = 0.3333E+03 ON ELEMENTS 13 TO 13 
ALPHA = -0.1667E+02 BETA = 0.3333E+03 ON ELEMENTS 17 TO 17 
ALPHA = -0.1667E+02 BETA = 0.3333E+03 ON ELEMENTS 18 TO 19 
ALPHA = -0.1667E+03 BETA = 0.1667E+04 ON ELEMENTS 22 TO 25 
ALPHA = -0.1667E+03 BETA = 0.1667E+04 ON ELEMENTS 26 TO 29 
ALPHA = -0.1667E+03 BETA = 0.1667E+04 ON ELEMENTS 30 TO 33 
ALPHA = -0.1667E+03 BETA = 0.1667E+04 ON ELEMENTS 34 TO 37 
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NODAL POINT POTENTIALS AND POTENTIAL GRADIENTS 


I PSI DPSI UNX UNY 

1 0.838513E+02 0.000000E+00 -0.7021E+00 -0.7121E+00 
2 0.967611E+02 -0.127971E+04 -0.3068E-07 -0.1000E+01 
3 0.133967E+03 0.303900E+04 0.7071E+00 -0.7071E+00 
4 0.150549E+03 0.303900E+04 0.1000E+01 0.0000E+00 
5 0.130908E+03 0.303900E+04 0.1000E+01 -0.7036E-02 
6 0.123689E+03 0.303900E+04 0.9239E+00 -0.3827E+00 
7 0.123411E+03 0.303900E+04 0.7071E+00 -0.7071E+00 
8 0.127642E+03 0.303900E+04 0.3827E+00 -0.9239E+00 
9 0Q.130472E+03 0.303900E+04 0.6357E-06 -0.1000E+01 
10 0.129789E+03 0.303900E+04 -0.3827E+00 -0.9239E+00 
11 0.129134E+03 0.303900E+04 -0.7071E+00 -0.7071E+00 
12 0.132750E+03 0.303900E+04 -0.9239E+00 -0.3827E+00 
13 0.140975E+03 0.303900E+04 -0.1000E+01 -0.7034E-02 
14 0.156014E+03 0.303900E+04 -0.1000E+01 0.0000E+00 
15 0.136025E+03 -0.193424E+04 -0.7071E+00 -0.7071E+00 
16 0.101275E+03 -0.135495E+04 0.0000E+00 -0.1000E+01 
17 0.802578E+02 -0.100460E+04 0.7035E-02 -0.1000E+01 
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19 0.739148E+02 -0.898860E+03 0.7071E+00 -0.7071E+00 
20 0.730442E+02 -0.884347E+03 0.9239E+00 -0.3827E+00 
21 0.733541E+02 -0.889513E+03 0.1000E+01 -0.7034E-02 
22 0.682552E+02 -0.804514E+03 0.1000E+01 -0.2023E-06 
23 0.448672E+02 -0.414637E+03 0.1000E+01 -0.2023E-06 
24 0.381535E+02 -0.302719E+03 0.1000E+01 0.0000E+00 
25 0.505920E+02 -0.510069E+03 Q0.7071E+00 0.7071E+00 
26 0.674110E+02 -0.790441E+03 0.0000E+00 0.1000E+01 
27 0.150000E+03 0.131650E+05 -0.7958E+00 0.6056E+00 
28 0.150000E+03 0.494709E+04 -0.5796E+00 0.8149E+00 
29 0.150000E+03 0.409609E+04 -0.3042E+00 0.9526E+00 
30 0.150000E+03 0.320071E+04 0.3492E-06 0.1000E+01 
31 0.150000E+03 0.594284E+04 0.3042E+00 0.9526E+00 
32 0.150000E+03 0.525909E+04 0.5796E+00 0.8149E+00 
33 0.150000E+03 0.123646E+05 0.7958E+00 0.6056E+00 
34 0.719538E+02 -0.866170E+03 -0.7081E-06 0.1000E+01 
35 0.539120E+02 -0.565413E+03 -0.7071E+00 0.7071E+00 
36 0.469374E+02 -0.449147E+03 -0.1000E+01 0.0000E+00 
37 0.311227E+02 -0.185515E+03 -0.1000E+01 0.0000E+00 
38 0.370928E+02 -0.285037E+03 -0.1000E+01 0.0000E+00 
39 0.470644E+02 0.000000E+00 -0.7121E+00 -0.7021E+00 
40 0.571549E+02 0.000000E+00 -0.3827E+00 -0.9239E+00 
41 0.747607E+02 0.000000E+00 -0.7071E+00 -0.7071E+00 
42 0.877977E+02 0.000000E+00 -0.9239E+00 -0.3827E+00 
43 0.427965E+02 -0.546718E+04 -0.1000E+01 0.2030E-06 
44 0.407786E+02 -0.513080E+04 -0.9239E+00 0.3827E+00 
45 0.384964E+02 -0.475034E+04 -0.7071E+00 0.7071E+00 
46 0.348074E+02 -0.413539E+04 -0.3827E+00 0.9239E+00 
47 0.302071E+02 -0.336853E+04 0.2133E-06 0.1000E+01 
48 0.256852E+02 -0.261473E+04 0.3827E+00 0.9239E+00 
49 0.221622E+02 -0.202744E+04 0.7071E+00 0.7071E+00 
50 0.202331E+02 -0.170585E+04 0.9239E+00 0.3827E+00 
51 0.204366E+02 -0.173978E+04 0.1000E+01 0.5635E-07 
52 0.231309E+02 -0.218892E+04 0.9239E+00 -0.3827E+00 
53 0.284982E+02 -0.308366E+04 0.7071E+00 -0.7071E+00 
54 0.362383E+02 -0.437392E+04 0.3827E+00 -0.9239E+00 
55 0.443025E+02 -0.571823E+04 0.2105E-06 -0.1000E+01 
56 0.490269H+02 -0.650578E+04 -0.3827E+00 -0.9239E+00 
57 0.489175EH+02 -0.648755E+04 -0.7071E+00 -0.7071E+00 
58 0.458112E+02 -0.596972E+04 -0.9239E+00 -0.3827E+00 
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59 0.239710E+02 -0.232897E+04 -0.1000E+01 0.6399E-06 
60 0.246855E+02 -0.244808E+04 -0.9239E+00 0.3827E+00 
61 0.271660E+02 -0.286157E+04 -0.7071E+00 0.7071E+00 
62 0.308030E+02 -0.346786E+04 -0.3827E+00 0.9239E+00 
63 0.349101E+02 -0.415251E+04 -0.3134E-06 0.1000E+01 
64 0.387237E+02 -0.478824E+04 0.3827E+00 0.9239E+00 
65 0.418642E+02 -0.531177E+04 0.7071E+00 0.7071E+00 
66 0.444542E+02 -0.574351E+04 0.9239E+00 0.3827E+00 
67 0.469923E+02 -0.616662E+04 0.1000E+01 -0.6352E-06 
68 0.492539E+02 -0.654362E+04 0.9239E+00 -0.3827E+00 
69 0.499708E+02 -0.666313E+04 0.7071E+00 -0.7071E+00 
70 0.475250E+02 -0.625542E+04 0.3827E+00 -0.9239E+00 
71 0.419051E+02 -0.531859E+04 -0.6534E-06 -0.1000E+01 
72 0.349964E+02 -0.416691E+04 -0.3827E+00 -0.9239E+00 
73° 0.291235H+02 -0.318788E+04 -0.7071E+00 -0.7071E+00 
74 0.253855E+02 -0.256476E+04 -0.9239E+00 -0.3827E+00 


POTENTIAL FLOWS INTO DOMAIN ACROSS BOUNDARY SEGMENTS 


SEGMENT FLOW 
1 -0.471524E+02 
2 0.136755E+03 
3 0.143155E+03 
4 0.136755E+03 
5 -0.417933E+02 
6 -0.215332E+02 
7 -0.582556E+02 
8 -0.291952E+02 
9 0.512356E+03 
10 -0.309865E+02 
11 -0.324333E+02 
12 0.000000E+00 
13 -0.160658E+03 
14 -0.223623E+03 
15 -0.129467E+03 
16 -0.153033E+03 


TOTAL POTENTIAL FLOW INTO DOMAIN = 0.929021E+03 


TOTAL POTENTIAL FLOW OUT OF DOMAIN = 0.928131E+03 
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Firstly, some points of detail concerning the normals at the ends of segments. At points I and J (nodes 
27 and 33), where there is a change from prescribed temperature to mixed boundary conditions, the 
local normals are normal to the curved surface, the directions of the unknown temperature gradients. 
On the other hand, the normals at corner points A, B, E, H, K and L (nodes 1, 3, 15, 25, 35, and 39) 
are in the average directions of the normals to the segments that meet there, which have gradient type 


boundary conditions. 


The total potential flows (conductive heat fluxes) into and out of the domain of this Laplace type problem 
balance to within 0.1%. The potential flow (integration of temperature gradients) into the domain over 
BCDE (adding flows for segments 2, 3 and 4) is 416.7 °C. Multiplying by the thermal conductivity of 
1.2 W/m°C gives the prescribed value of 500.0 W/m. There is also heat input over IJ (segment 9) of 
some 614 W/m. The cooling rate into the large hole (segments 13 and 14) is 160.7 + 223.6 = 384.3 °C, or 
461.2 W/m, while the rate into the small hole (segments 15 and 16) is 339.0 W/m. The effects of mesh 
refinement can be explored by progressively doubling the number of elements on each of the segments, 
with the results shown in Table 4.10. 


Number of Large hole Small hole 


elements cooling, W/m cooling W/m 
of 461.2 339.0 
74 459.9 336.7 
148 459.5 336.1 
296 459.3 Sao 


Table 4.10 Effect of mesh refinement on cooling rates 


Refining the mesh has only a modest effect on the computed cooling rates, and for practical purposes 


the rates for the two holes could be taken as 459 and 336 W/m, respectively. 


45 Discussion 


It is clear that quadratic boundary elements applied to potential problems offer much better accuracy than 
do constant elements. Under favourable conditions, as few as a tenth as many nodes need be employed. 
This applies not only in problems where the boundary geometry is curved, and quadratic elements have 
an obvious advantage, but also in problems involving straight boundaries, because the variables (potential 


and potential gradient) are also allowed to vary quadratically over each element. 
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But, constant elements do offer significant benefits in problems where either values of potential within 


the solution domain are required to be computed at points close to the domain boundary, or opposite 


sides of the domain are close together. This is because constant elements use only analytical integration, 


which is always more accurate than the numerical integration required by quadratic elements. As a 


consequence, in problems where the integral of potential over the solution domain is required, very 


refined meshes of quadratic boundary elements are required to maintain internal point accuracy for 


domain integration, and their advantages over constant elements are lost. 


Problems 

4.1 Solve Problem 3.1 using program BEM2PQ. 
4.2 Solve Problem 3.2 using program BEM2PQ. 
4.3 Solve Problem 3.3 using program BEM2PQ. 
4.4 Solve Problem 3.4 using program BEM2PQ. 
4.5 Solve Problem 3.5 using program BEM2PQ. 
4.6 Solve Problem 3.6 using program BEM2PQ. 
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4.7 Solve Problem 3.7 using program BEM2PQ. 


4.8 Solve Problem 3.8 using program BEM2PQ. Why is the computed maximum temperature slightly 


higher than that obtained using constant boundary elements? 
4.9 Solve Problem 3.9 using program BEM2PQ. 
4.10 Solve Problem 3.10 using program BEM2PQ. 


4.11 Figure 4.3 shows a small part ABCD of an engine component where a fin is used to promote 
convection cooling to the surrounding atmosphere. There are other similar fins both above and below 
the region show, so that the lines AB and CD can be regarded as representing planes of symmetry. The 
surface represented by AD is maintained at a temperature of 300°C, and the thermal conductivity of 
the steel from which the component is made is 50 W/m°C. The heat transfer coefficient of the surface 
represented by BC, and including the fin, which is exposed to the atmosphere at a temperature of 25 
is 30 W/m’. Use program BEM2PQ to find the percentage increases in cooling rate obtained using 
fin lengths L of (a) 40mm, (b) 80 mm, and (c) 120 mm, relative to not using a fin at all (L = 0). 


Find also the temperature at the tip of the fin in each case. 


D C All dimensions in mm 
A 
10R 
50 105 
10R 
yy 
A B 
ou 


Figure 4.3 Cooling fin problem 


4.12 A number of pipes are used to carry hot water at 90°C underground. The pipes are 100 mm 
external diameter laid parallel to each other at a distance 2 m apart, and with their centres 1 m 
below ground level. The thermal conductivity of the ground can be taken to be 1.25 W/m°C, and 
the surface heat transfer coefficient to the air at 10°C is 5 W/m”C. Use program BEM2PQ to find 


both the rate of heat loss from the pipe and the maximum temperature of the ground surface. 
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The aim of this appendix is to explain the Gaussian quadrature method of numerical integration, 


particularly as applied to boundary elements. 


When a function cannot be integrated analytically, some form of numerical integration or quadrature 
must be used. Two of the simplest methods are the familiar trapezium and Simpson's rules. Given a 
function f (x), values of the function are obtained for a number of values of the independent variable x 
over the required range of integration, and an approximate value of the integral obtained from them. An 
important feature (and limitation) of these simple methods is that the values of the independent variable 
at which the function is sampled are often taken at constant intervals, and certainly little attention is 


paid to the optimum choice of sampling points. 


If there is no restriction on the positions at which the function can be evaluated, then there is a class 
of numerical integration procedures referred to as Gaussian quadrature, which is to be preferred. The 
advantage over the trapezium and Simpsons rules is that greater accuracy for a given number of function 


evaluations, and therefore of overall computational effort, can be obtained. 


{®@ 


“1 E, 0 +1 


Figure A.1 Typical function to be integrated numerically 


Figure A.1 shows a typical function to be integrated: the area between the curve f(é) and the € axis 
between the limits € = —1 and € = +1 is required. It is convenient to transform the actual independent 
variable, such as x, into a dimensionless variable with these limits. This is the reason for introducing the 
local intrinsic co-ordinate § for quadratic boundary elements. Assuming that the function is evaluated 


at n points, known as the Gauss points, the required integral can be expressed approximately as 


[TF @Oae ~ WE, Wy f Ey) (A) 
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where w, the are weighting factors. Simpson’ rule (defined in Equation 3.49) is actually a particular 
form of this result in which, for a single application of the rule 


§ =-1 §2 =0 3 =+1 (A.2) 


Given the freedom to choose the §,, however, the values of these and the corresponding weighting 
factors can be optimised for the integration of polynomial functions to give better accuracy. These are 
now well established and are available for a wide range of n, the number of Gauss points (for example, 
Stroud & Secrest 1966). 


For any numerical integration, choosing the number of Gauss points involves a compromise between 
accuracy and the amount of computation involved. In boundary element methods the number of points 
is normally at least n = 4. In this book a higher value of n = 8 is preferred, for which the values of € 


and w are 


€g = —&, = 0.9602898564 ww, = weg = 0.1012285362 
€7 = —& = 0.7966664774 W2 = W7 = 0.2223810344 (A.3) 
€ = —& = 0.5255324099 W3 = We = 0.3137066458 


& = —&, = 0.1834346424 wy, = ws = 0.3626837833 
to ten decimal places. 


Gaussian quadrature formulae have also been worked out for functions which involve particular forms of 
functions as multipliers, including cases of multipliers which are singular within the range of integration. 


One such case which is very relevant to boundary element methods is 


Jo In () fd ~ LP-1 wf (mp) (A.A) 
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the numerical values for n = 8 being 


nj = 0.013320244 wi = 0.164416605 
n> = 0.079750429 W> = 0.237525610 
n3 = 0.197871029 W3 = 0.226841984 


ni = 0.354153994 wi = 0.175754079 (A.5) 


ni = 0.529458575 wi = 0.112924030 
ni = 0.701814530 ww = 0.057872211 
ni = 0.849379320 w3 = 0.020979074 


ni = 0.953326450  w% = 0.003686407 


Reference 


Stroud, A.H. & Secrest, D. 1966, Gaussian Quadrature Formulas, Prentice-Hall. 
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Appendix B: Gaussian Elimination 


The aim of this appendix is to explain Gaussian elimination, which is a direct method for solving sets 


of simultaneous linear algebraic equations of the general form 


QA44X4 + a42X2 + 


a2{X41 + a22X2 + 


+ AtnXn = by 


+ aA2nXyn = b2 


(B.1) 
An1X1 + An2X2 + + AnnXn = Dy 
where X1,X2,"***,X, are the unknowns, and the coefficients a;; and b; are all known constants. This 
set of equations can be expressed in matrix form as follows 

ay. U2 Qin f~1 by 
Q21 22 A2n || *2 by 

ie ae = (B.2) 
Ant Qn2 Ann Xn by 

[A][x] = [5] (B.3) 


The unknowns are successively eliminated by algebraic manipulation. The first equation can be used 


to eliminate x, from the remaining n—1 equations. The modified second equation is then used to 


eliminate x2 from the remaining n — 2 equations, and so on until the last equation contains only x,. 
Thus may be found, followed by all the other unknowns, by back substitution. Let the coefficients of [A] 


and [b] shown in Equations B.1 and B.2 be given the notation ae and ae After the nth elimination, 


the modified coefficients are 


(k+1) _ 


z Uk), 
ij 


a ae — Oa,; 


(K+) _ p00 _ gp 
bh) — p® _ gp! 
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(B.4) 


where @ = an a, i=k+1,k+2,..,n andj =k,k +1,...,n. Note that the column vector [b] 


is treated just like a column of [A], and advantage can be taken of this fact to simplify the computer 


programming of the process. The final set of equations is 


ay Mi + a x2 Se 2 an x, = be 
ax, Hoe F a?) x, = b?? 

(B.5) 
a = BS 


Expressed in matrix terminology, the elimination process triangularises [A]. The unknowns are obtained 


in reverse order 
Xn = DM” sa? (B.6) 


n 


5 =(1- Y) as) so? 
j=it1 


where i =n—1,n—2,....,1. 


A great many arithmetic operations are involved in solving large sets of equations by elimination. Any 
errors introduced, such as roundoff errors caused by representing numbers with only a finite number 
of significant figures, tend to be magnified and may become unacceptably large. Equations B.4 show 
that the elimination process involves many multiplications by the factors @. In order to minimize the 
effects of roundoff errors, these factors should be made as small as possible, and certainly less than one. 
Therefore, the pivotal coefficient a“? should be the largest coefficient in the leading column of the 


kk 
remaining submatrix 


lat? | > lal?) fori=k+1,k+2,..,0 (B.7) 


This condition also helps to avoid division by zero in Equations B.6, and can be achieved by a process 
known as partial pivoting. Immediately before each elimination, the leading column is searched for the 
largest coefficient. By interchanging equations, this can be made the pivotal coefficient to satisfy Equation 
B.7. The idea of partial pivoting can be extended to searching the whole of the remaining submatrix 
for the largest coefficient. Such complete pivoting involves interchanging both rows and columns, and 
is more difficult to program. Since it offers only modest advantages in terms of accuracy over partial 
pivoting, it is rarely used. 
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Another refinement which helps to minimize the effects of roundoff errors is to scale the equations to 
make their coefficients similar in magnitude. One way to do this is to normalize each equation so that 
the largest coefficient in each row of [A] is of magnitude one. Scaling can be particularly important 


when corresponding coefficients in different equations differ by several orders of magnitude. 


Any given set of equations may provide either duplicate (for example, two equations identical) or 
inconsistent information, and cannot be solved. In either case, the matrix of coefficients [A] is said to 
be singular, and its determinant is zero. Such a condition can be detected during partial pivoting if it 
is impossible to find a non-zero pivotal value at some stage of the elimination process or at the start of 
the back substitution process. What is more difficult to detect, however, is when a set of equations is 
nearly singular or ill-conditioned. This arises when, for example, two equations provide very nearly the 
same information about the unknowns. Alternatively, the effect of roundoff errors may be to make what 
is a singular set of equations apparently ill-conditioned, in that rather than a zero pivotal coefficient, a 
very small value is obtained. Indeed, the detection of a very small pivotal coefficient can be used as a 
convenient test for either a singular or very ill-conditioned set of equations, but without being able to 
distinguish between them. By very small pivotal coefficient is meant a value very small in relation to the 
magnitudes of the coefficients of the matrix at the start of the elimination process, which are of order 


unity if scaling has been applied. 


The following subprogram ELIMIN provides a Fortran implementation of Gaussian elimination. 
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SUBROUTIN 


23 


ELIMIN (A, X,NEQN, NROW, NCOL, IFLAG) 


r 


! SUBROUTINE FOR SOLVING SIMULTANEOUS LINEAR EQUATIONS BY GAUSSIAN 


! ELIMINATION WITH PARTIAL PIVOTING. 


REAL :: A(NROW,NCOL) , X (NROW) 


! INITIALIZE ILL-CONDITIONING FLAG. 


IFLAG=0 


r. 
Tr. 


! SCALE EACH EQUATION TO HAVE A MAXIMUM COEFFICIENT MAGNITUDE OF UNITY. 


JMAX=NEQN+1 


ach equation in turn: DO I=1,NEQN 


ira] 


MAX=0. 


Al 

Search for maximum: DO J=1,NEQN 
ABSA=ABS (A(I,J) ) 

I 


F(ABSA > AMAX) AMAX=ABSA 


eal 


ND DO Search for maximum 
Scale coefficients: DO J=1,JMAX 
A(I,dJ)=A(I,J) /AMAX 


END DO Scale coefficients 


END DO Each equation in turn 


r 


!  COMMENCE 


iLIMINATION PROCESS. 


Eliminate each variable in turn: DO K=1,NEQN-1 


! SEARCH LEADING COLUMN OF THE COEFFICIENT MATRIX FROM THE DIAGONAL 


! DOWNWARDS FOR THE LARGEST VALUE. 


r. 


IMAX=K 
Search for largest value: DO I=K+1,NEQN 
IF (ABS (A(I,K)) > ABS (A(IMAX,K))) IMAX=I 


eal 


ND DO Search for largest value 


! IF NECESSARY, INTERCHANGE EQUATIONS TO MAKE THE LARGEST COEFFICIENT 


! BECOME THE PIVOTAL COEFFICIENT. 


IF (IMAX /= K) THEN 


Interchange coefficients: DO J=K, JMAX 
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D DO Interchange coefficients 


X(K) FROM EQUATIONS (K+1) TO NI 


PIVOTAL 


1Y SMALL COEFFICIENT 


:1L-CONDITIONI 


Gl 


D MATR 


UX) 6 


IF (ABS (A(K,K)) < 1.E-5) THEN 


IFLAG=1 
RI 


ETURN 
END IF 
DO I=K+1,N 


EON, 
(ASSOCIATI 


Appendix B: Gaussian Elimination 


FIRST TESTING FOR 


ED WITH A SINGULAR 


Each of remaining equations: 


FACT=A (I,K) /A(K,K) 
Modify coefficients: DO J=K, JMAX 
A(1I,J)=A(1I,J) -FACT*A(K,J) 


END DO Modify coefficients 


END DO Bach of remaining equations 


Gl 
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END DO Eliminate each variable in turn 


! SOLVE THE EQUATIONS BY BACK SUBSTITUTION, FIRST TESTING 


! FOR AN EXCESSIVELY SMALL LAST DIAGONAL COEFFICIENT. 


IF (ABS (A(NEQN, NEQN)) < 1.E-5) THEN 


RETURN 
END IF 


X (NEQN) =A (NEON, JMAX) /A (NEON, NEQN) 


Then each unknown in turn backwards: DO I=NEQN-1,1,-1 


UM=A (I, JMAX) 


= 
10 
A 


S 
Sum products: DO J=I+1,NE 
SUM=SUM-A (I,J) *X (J) 

END DO Sum products 

X (I) =SUM/A(I,T) 

END DO Then each unknown in turn backwards 


RETURN 


END SUBROUTINE ELIMIN 


The arguments of ELIMIN include the array of equation coefficients, A, which incorporates the vector 
of constants [b] as its last column, and the solution vector, X. The argument NEQN enters the number 
of equations to be solved, while IFLAG returns an integer flag value to the calling program to warn of 


a singular or very ill-conditioned coefficient matrix. 


The first action of the program is to scale the coefficients of the equations to give a maximum coefficient 
magnitude of unity in each row of [A]. The elimination process is then started: each equation, with 
the exception of the last, is used in turn to eliminate the corresponding unknown from the subsequent 
equations. The current elimination number is given by K, and is equivalent to k in Equations B.4. Before 
performing the necessary eliminations with a particular equation, however, a search is made down the 
leading column of the remaining submatrix to find the coefficient of greatest magnitude, as defined 
by Equation B.7. The search technique locates the row number of the largest coefficient, IMAX, by 
first assuming that it corresponds to the coefficient on the diagonal, and only changing this if a larger 
coefficient is found. If the pivotal coefficient is not the largest, the relevant equations are interchanged 
by interchanging all their coefficients. In computing terms, this movement of data between storage 
locations is inefficient. While it could be avoided by keeping a record of the revised order in which the 
equations are to be considered, this makes the program significantly more difficult to understand. For 


present purposes, some computational efficiency is sacrificed in the interests of clarity. 
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Despite the search for the largest coefficient, it is still possible for the pivotal coefficient to be extremely 
small or zero if the coefficient matrix is singular or very ill-conditioned. Bearing in mind that the equations 
were scaled initially, an appropriate test of magnitude is |a;,;,| < 10~>. If this condition is satisfied at any 
stage of the elimination process, the problem is rejected. Rejection is indicated by setting the value of 
IFLAG to one, which may be detected by the calling program. Ifthe partial pivoting is successful, however, 
the eliminations defined by Equations B.4 are performed, with the variable FACT being used to store the 
values of the factor @. After testing the magnitude of the last diagonal coefficient (a? in Equations B.5), 


the back substitutions defined in Equations B.6 are performed to find the required solutions. 
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Appendix C: Matlab Version of 
Constant Boundary Element 
Program for Potential Problems 


The aim of this appendix is to present a Matlab version of the program BEM2PC which is described in 


detail in its Fortran form in Chapter 3. Matlab is now very widely used by engineers for many purposes. 


The Matlab version is as far as possible a literal translation of the Fortran. This means that the detailed 
explanations provided in Chapter 3 are also applicable to the Matlab script. On the other hand, no 
attempt is made to take advantage of special built-in features of Matlab such as simplified handling of 


matrices and vectors, and the solution of sets of linear equations. 


Fortran is a compiler which converts the source code into machine code before computation starts. In 
contrast, Matlab is an interpreter which goes through the code line-by-line, translating and executing 
each line as it goes. Strictly speaking therefore, Matlab works with scripts rather than programs, although 
scripts are often loosely referred to as programs. A consequence of this difference between a compiler and 
an interpreter is that for large computationally intensive problems Fortran generally executes noticeably 


more quickly than Matlab. 


The same function and variable names are used in the Fortran and Matlab programs: upper case names 
in Fortran become lower case in Matlab. The definitions of the names given in Some Program Variable 
Names at the beginnings of both Parts of the book are equally valid for both. DO loops in Fortran become 
“for” loops in Matlab, and functions are called in somewhat different ways. Also, STOP in Fortran is 
replaced by an error message to the computer screen in Matlab. The main difference, however, is to be 
seen in the details of the handling of input and output, although the same approach of inputting data 
from one pre-defined file and outputting to other files is adopted. In particular, the required input DATA 


files used in Fortran are unchanged, and the output files are effectively identical. 


The Matlab version of BEM2PC, stored as the file BEM2PC.m, is as follows. 


function BEM2PC (varargin) 


% PROGRAM FOR SOLVING TWO DIMENSIONAL POTENTIAL PROBLEMS BY THE BOUNDARY 


% ELEMENT METHOD USING CONSTANT ELEMENTS. 


clear global; clear functions; 
global fid5 fidé fid7 
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shareddata2pc 
fid5=fopen('DATA','r'); 
fid6é=fopen('RESULTS', 'wt'); 


fid7=fopen ('MESHRES', 'wt+'); 


% 


r 


% DEFINE THE MAXIMUM PROBLEM SIZE 


U 


ERMITTED BY THE ARRAY DIMENSIONS. 


maxnnp=1000; 
maxnb=10; 


% 


% INPUT THE PROBLEM TITLE AND TYPE. 


intitle; 


% 


% INPUT OR GENERATE THE MESH DATA. 


meshc; 


% 


% OUTPUT THE 


< 


ESH DATA. 


mshout; 


% 


% INPUT, PROCESS AND OUTPUT THE BOUNDARY CONDITIONS. 


FS 


bes; 


% 


% IF GOVERNING EQUATION IS POISSON TYPE, MODIFY TH 


Gl 


BOUNDARY CONDITIONS. 


poisson; 


% 


% FORM THE COEFFICIENT MATRIX AND APPLY THE BOUNDARY CONDITIONS. 


frmtrx; 


% 


%& SOLVE THE LINEAR EQUATIONS. 


[psi,iflag]=elimin(a,nnp) ; 
if (iflag == 1) 
fprintf (fid6, ['\n', 
"MATRIX ILL-CONDITIONING DETECTED IN EQUATION SOLVER']); 


error ('MATRIX ILL-CONDITIONING DETECTED IN EQUATION SOLVER") 


end; 


% 


foe) 


OUTPUT NODAL POINT VALUES OF POTENTIAL AND POTENTIAL GRADIENT, 


oe 


ALSO POTENTIAL FLOWS ACROSS BOUNDARY SEGMENTS. 


output; 
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% 


% COMPUTE VALUES OF POTENTIAL AT INTERNAL POINTS. 


internal; 


% 


end Sprogram BEM2PC 


function intitle (varargin) 


% SUBPROGRAM TO INPUT PROBLEM TITLE AND TYPE (LAPLACE OR POISSON). 


% 


global yc xc f1 fid5 fid6 


& INPUT THE PROBLEM TITLE. 
title=fgetl (fid5) ; 


fprintf (fid6é, ['CONSTANT BOUNDARY ELEMENT SOLUTION FOR', 


' TWO DIMENSIONAL POTENTIAL PROBLEM','\n','\n','%s','\n'],title); 


% INPUT THE VALUE OF THE (CONSTANT) Fl FUNCTION IN THE GOVERNING 


% EQUATION. 
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line=fgetl (fid5) ; 
fl=str2num(line); 


if(f1l == 0.) 


= 


fprintf (fid6é, ['\n', 'LAPLAC 


EQUATION','\n']); 


end; 
if(f1l ~= 0.) 
fprintf (fid6é, ['\n','POISSON EQUATION, Fl = ','%12.4e', 


'  CONSTANT', '\n'],f£1); 


foe) 


% INPUT THE COORDINATES OF THE ORIGIN FOR THE PARTICULAR INTEGRAL. 
line=fgetl (fid5) ; 


25 


vec=str2num(line); 


xc=vec(1); yc=vec(2); 


fprintf (fid6é, ['\n', 'ORIGIN FOR PARTICULAR INTEGRAL: Me 
'X =','%12.4e',' Y =','$12.4e','\n'],xc,yc); 
end; 
return; 


end function intitle 


function meshc(varargin) 


% 


oe 


SUBPROGRAM TO READ IN AND GENERATE THE GEOMETRIC DATA FOR A MESH OF 


oP? 


CONSTANT ELEMENTS. 


% 


global maxl ynode xnode nnp elength uny unx yeend xeend nep2 nepl 


isegend isegelem nnpb nbound nel neend ysend xsend ifirst 


ilast maxnnp nsegb nsegtot maxnb fid5 fid6 


% 


% INPUT THE NUMBER OF SEPARATE BOUNDARIES. 


line=fgetl (fid5) ; 
nbound=str2num (line) ; 


% 


S$ TEST THE NUMBER OF BOUNDARIES. 
if (nbound < 1 || nbound > maxnb) 


fprintf (fidé, ['\n', 'NBOUND =','34i', 


'  OUTSID 


r 


PERMITTED RANGE 1 TO','%34i','\n'],nbound,maxnb) ; 


E 


error('nbound error'); 


end; 
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% 


% 


FOR 


nnp=0; 


ieend=0; 


nsegtot=0; 


EACH BOUNDARY IN TURN INPUT TH 


for ibound=1:nbound; 


foe) 


ol? 


fo) 


nnpb (ibo 


line=fge 


u 


nd) =0; 
1 (fid5) ; 


Appendix C: Matlab Version of Constant Boundary 
Element Program for Potential Problems 


r 


NUMB 


BR OF S 


EGM 


ENTS. 


% 


each boundary in turn 


nsegb (ibound) =str2num (line) ; 


nsegtot= 


a 


EST THE 


G 


NUMB 


ER O 


if(nsegtot < 1 
fprintf (fid6é, ['\n', 'NSE 


error ('nsegto 


[| 


fix (nsegtott+nsegb (ibound) ); 


F SEGMENTS. 


nsegtot > maxnnp) 


GTOT =',' 


G 


OUTSIDE P 


% 


ERMITTED RANGE 


1 TO', 'S6i','\n'], nsegtot,maxnnp) ; 


C. € 


error!) ; 


end; 
INPUT THE CARTESIAN GLOBAL COORDINATES OF THE END POINTS OF THE 
SEGMENTS. TAKE THE END POINTS CONSECUTIVELY, KEEPING THE DOMAIN 
TO THE LEFT OF THE DIRECTION OF NUMBERING. 
Bach line of input data is assumed to contain an arbitrary number 
of pairs of x,y coordiates. 
isend=0; 
while isend < nsegb(ibound) ; 
line=fgetl (fid5) ; 
vec=str2num(line) ; 
veclength=length (vec) ; 
np=veclength/2; 
for ip=l:np; 
isend=isend+1; 
xsend(isend) =vec(2*ip-1); 
ysend(isend) =vec(2*ip); 
end; 
end; 
DEFINE THE FIRST END POINT ON THE CURRENT BOUNDARY. 


ijeend=ieend+1; 


xeend (i 


nd) =xsend 


nd(i 


y 


nd) =ysend 


(1)5 
(1); 
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% FOR EACH OF THE SEGMENTS (BETWEEN ENDS 1 AND 2, 2 AND 3, ETC.) 


% INPUT THE RADIUS OF CURVATURE (+VE FOR CONVEX WITH CENTRE OF 


% CURVATURE INSIDE DOMAIN, -VE FOR CONCAVE), THE NUMBER OF 


% ELEMENTS IN THE SEGMENT, AND THE LENGTH RATIO BETWEEN SUCCESSIVE 


ole 


ELEMENTS IN THE DIRECTION OF NUMBERING. 


isegmax=nsegtot; 
isegmin=isegmax-nsegb (ibound) +1; 
for iseg=isegmin:isegmax; % each segment in turn 
line=fgetl (fid5) ; 
vec=str2num(line); 


rseg=vec(1); nelseg=vec(2); ratseg=vec (3); 


zr 


% FIND AND TEST NUMBER OF NODES/ 


‘(LEMENTS SO FAR. 


nnp=fix (nnptnelseg) ; 
nnpb (ibound) =fix (nnpb (ibound) +nelseg) ; 
if(nnp < 1 || nnp > maxnnp) 
fprintf (fid6, ['\n', 'NNP =','36i',' OUTSIDE PERMITTED', 
' RANGE 1 TO', 'S6i', '\n'],nnp,maxnnp) ; 
error('nnp error'); 


end; 


TURN TO THE EXPERTS FOR 
SUBSCRIPTION CONSULTANCY 


Subscrybe is one of the leading companies in Europe when it comes to innovation 
and business development within subscription businesses. 


We innovate new subscription business models or improve existing ones. We do 
business reviews of existing subscription businesses and we develope acquisition and 
retention strategies. 


Learn more at linkedin.com/company/subscrybe or contact 
Managing Director Morten Suhr Hansen at mha@subscrybe.dk 


SUBSCRYBE - fo the futuc 


Download free eBooks at bookboon.com 


250 Click on the ad to read more 


Boundary Element Methods for Engineers: Appendix C: Matlab Version of Constant Boundary 
Part I: Potential Problems Element Program for Potential Problems 


foe) 


oP 


FIRST AND LAST NODES ON CURRENT SEGMENT. 


ilast (iseg) =fix (nnp) ; 


ifirst (iseg) =fix (nnp-nelsegt1); 


foe) 


COORDINATES OF THE FIRST END POINT OF THE SEGMENT. 


isend=iseg-isegmint1; 


xfirst=xsend(isend) ; 


yfirst=ysend(isend) ; 


foe) 


COORDINATES OF THE LAST END POINT OF THE SEGMENT. 


isend=isendt+1; 

if(iseg == isegmax) 
isend=1; 

end; 

xlast=xsend(isend) ; 


ylast=ysend(isend) ; 


% GENERATE ELEMENT DATA FOR A STRAIGHT SEGMENT. 


% DEFINE THE ELEMENT END POINT COORDINATES ON THE SEGMENT. 


for m=l:nelseg; % each element in turn 
ieend=ieend+1; 


isegend (ieend) =fix (iseg) ; 


if(ratseg == 1.) 
xeend (ieend) =xfirst+ (xlast-xfirst) * (m) / (nelseg) ; 
yeend (ieend) =yfirst+ (ylast-yfirst) * (m) / (nelseg) ; 
end; 
if(ratseg ~= 1.) 
xeend (ieend) =xfirst+ (xlast-xfirst) * (1.-ratseg*m) / 
(1l.-ratseg*nelseg) ; 
yeend (ieend) =yfirst+ (ylast-yfirst) * (1.-ratseg*m) / 
(1.-ratseg*nelseg) ; 
end; 
end; % each element in turn 


end; 


%& GENERATE ELEMENT DATA FOR A SEGMENT IN TH 


iE 


FORM OF A CIRCULAR ARC. 


if(rseg ~= 0.) 
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% 


% LOCATE THE CENTRE OF THE ARC. 


xmid=(xfirstt+txlast) /2.; 
ymid=(yfirstt+tylast)/2.; 
alseg=sqrt ((xlast-xfirst) *2+(ylast-yfirst) *2); 
alperp2=rseg*2-(alseg/2.)%*2; 
if(abs(alperp2) < 1.0e-6*rseg%2) 

alperp2=0.; 
end; 


if(alperp2 < -1.0e-6*rseg%2) 


fprintf (fid6, ['\n', 'DATA ERROR FOR SEGMENT NUMBER','36i', 


r 


'\n', 'NOT POSSIBLE TO CREATE A CIRCULAR ARC','\n'],iseg); 
error('circular arc error'); 

end; 

alperp=sqrt (alperp2); 

uvilx=(xlast-xfirst) /alseg; 

uvfly=(ylast-yfirst) /alseg; 

fact=1.; 

if(rseg < 0.) 
fact=-1.; 


end; 


xcent=xmid-alperp*uvfly* fact; 


ycent=ymidtalperp*uvfilx* fact; 


foe) 


FIND THE ANGLE SUBTENDED THERE 


as 


BY THE SEGMENT. 


if(alperp ~= 0.) 
angseg=2.*atan(alseg*0.5/alperp) ; 
end; 
if(alperp == 0.) 
angseg=pi; 


end; 


oe 


% DEFINE THE ELEMENT END POINT COORDINATES ON THE SEGMENT. 


angfir=atan2 (yfirst-ycent, xfirst-xcent) ; 


for m=l:nelseg; % each element in turn 


ieend=ieend+1; 


isegend (ieend) =fix (iseg) ; 
if(ratseg == 1.) 


ang=angseg* (m) / (nelseg) ; 
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end; 
if(ratseg ~= 1.) 
ang=angseg* (1.-ratseg*m) /(1.-ratseg*nelseg) ; 
end; 
if(rseg < 0.) 
ang=-ang; 


end; 


xeend (ieend) =xcenttabs (rseg) *cos (angfirt+ang) ; 


yeend (ieend) =ycent+t+abs (rseg) *sin(angfir+ang) ; 
end; % each element in turn 


end; 


ol? 


end; % each segment in turn 
end; % each boundary in turn 
neend=fix (ieend) ; 


nel=fix (nnp) ; 


% GENERATE THE ELEMENT POINT DATA AND THE NODAL POINT COORDINATES. 
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lep2=1; 
for ibound=1:nbound; % each boundary in turn 
mmax=mmintnnpb (ibound) -1; 
for m=mmin:mmax; % each element on current boundary 
iepl=iepl+1; 
iep2=iep2+1; 
nepl (m) =fix (iep1) ; 
nep2 (m) =fix (iep2) ; 
xnode (m) =0.5* (xeend(iep1) +xeend(iep2) ); 


ynode (m) =0.5* (yeend(iepl)+yeend(iep2) ); 


isegelem (m) =fix (isegend(iep2) ); 
end; % each element on current boundary 
mmin=mmaxt+1; 
iepl=iepl+1; 
iep2=iep2+1; 


end; % each boundary in turn 


ol? 


% FIND AND STORE THE COMPONENTS OF THE UNIT OUTWARD NORMALS AT TH 


Gl 


% ALSO THE ELEMENT LENGTHS. 


for i=l:nnp; % each node in turn 
iepl=nepl (i); 
jlep2=nep2 (i); 


vx=xeend (iep2) -xeend(iepl1); 


vy=yeend (iep2) -yeend(iepl) ; 
unx (1) =evy; 

uny (1) =-evx; 
denom=sqrt (unx (i) *2t+tuny(i)%*2); 


unx (i) =unx (i) /denom; 


uny (i) =uny (i) /denom; 


elength (i) =sqrt (evx*2+evy%2) ; 


end; % each node in turn 


% 


% DETERMINE THE MAXIMUM DIMENSION OF THE SOLUTION DOMAIN. 


maxl=0.; 


for i=l:nnp; % each node in turn 
for j=l:nnp; % each other node in turn 
dist=sqrt ( (xnode (i) -xnode (j) ) *2+ (ynode (i) ~ynode(j))%*2); 


if(dist > maxl) 
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maxl=dist; 
end; 
end; % each other node in turn 
end; % each node in turn 
of 
oO 
return; 


end %Sfunction meshc 


function mshout (varargin) 


eo 
) 


% SUBPROGRAM TO WRITE OUT THE 


= 


Ks 


ESH DATA. 


% 


global maxl ynode xnode nnp yeend xeend neend nel uny unx nep2 nepl fid7 


eo 
) 


% OUTPUT THE NUMBERS OF ELEMENTS AND NODES, ALSO THE ELEMENT END 


% POINT COORDINATE DATA. 


r 


fprintf (fid7, ['\n', 'GEOMETRIC DATA FOR THE MESH','\n','\n', 


' NUMBER OF ELEMENTS =','36i','\n','\n', 


: NUMBI 


eA 


R OF NODAL POINTS =','%S6i','\n','\n', 


' NUMBER OF ELEMENT END POINTS =','S6i','\n','\n', 


"COORDINATES OF ELEMENT END POINTS','\n','\n', 


' I X Y "7, 
: I xX Y '],nel,nnp,neend) ; 
for ieend=1:neend; 
if (mod(ieend,2) == 1); 
fprintf (fid7, ['\n','S6i','S12.4e','%12.4e'], 


ieend, xeend(ieend) , yeend(ieend) ); 
end; 
if (mod(ieend,2) == 0); 
fprintf (fid7, ['S61i','%12.4e','%12.4e'], 


ieend, xeend(ieend) , yeend(ieend) ); 
end; 
end; 


% 


% OUTPUT THE ELEMENT END POINT NUMBERS, NODAL COORDINATES AND 


% COMPONENTS OF THE UNIT OUTWARD NORMALS AT THE NODES. 


fprintf (fid7, ['\n','\n','ELEMENT END POINT NUMBERS,', 


" NODAL COORDINATES AND UNIT NORMAL COMPONENTS','\n','\n', 


' M NEP1 NEP2 X (NODE) Y (NODE) ',' UNX UNY']); 
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for m=l1:nel; 
fprintf (fid7, ['\n','S6i', 'S6i','S6i','%S12.4e','S12.4e','%312.4e', 


'S12.4e'],m,nepl(m) ,nep2 (m) ,xnode (m) , ynode (m) ,unx (m) , uny (m) ) ; 


% SCALE THE ELEMENT END POINT AND NODAL POINT COORDINATES. 


for ieend=l:neend; % each element end point in turn 


xeend (ieend) =xeend (ieend) /maxl; 


yeend (ieend) =yeend (ieend) /maxl; 


end; % each element end point in turn 
for i=l:nnp; % each node in turn 
xnode (i) =xnode (i) /max1; 
ynode (i) =ynode (i) /maxl; 
end; % each node in turn 
return; 


end %function mshout 
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function bcs (varargin) 


% SUBPROGRAM TO INPUT, PROCESS AND OUTPUT THE BOUNDARY CONDITIONS. 


% INPUT THE NUMBERS OF SEGMENTS SUBJECT TO EACH TYPE OF BOUNDARY 


% CONDITION. 


% NBCP - PRESCRIBED POTENTIAL. 
% NBCD - NON-ZERO PRESCRIBED NORMAL DERIVATIVE OF POTENTIAL. 
% NBCM - MIXED BOUNDARY CONDITION. 


% ANY SEGMENT NOT INCLUDED IS ASSUMED TO BE SUBJECT TO A ZERO 


E 


% NORMAL DERIVATIVE OF POTENTIAL. 


global maxl beta dpsi ibc store nnp ilast ifirst betaseg alphaseg 

alpha nsegtot isegbc nbcm dpsiseg nbcd psiseg nbcp maxnnp nbct fid5 fidé 
line=fgetl (fid5) ; 
vec=str2num(line) ; 


nbcp=vec(1); nbcd=vec(2); nbcm=vec (3); 


% 


% TEST THESE BOUNDARY CONDITION NUMBERS. 


E 


nbct=fix (nbcptnbcdtnbcm) ; 
if(nbcp < 0 || nbcp > maxnnp || nbcd < 0 || nbcd > maxnnp|| nbcm < 0 
|| nocm > maxnnp || nbct < 0 ||nbct > maxnnp) 


fprintf (fid6é, ['\n', 'NBCP =','S6i',' NBCD =','%S6i',' NBCM =', 


'6i','\n','"NBCT =','S6i','! OUTSIDE PERMITTED RANGE 0 TO', 


E 


'S6i','\n'], nbcp,nbcd,nbem, nbct,maxnnp) ; 
error('numbers of boundary conditions error'); 


end; 


% 


\ 


% INITIALIS 


r 


THE BOUNDARY CONDITION STORAGE ARRAYS. 


= 


for i=l:nnp; % each node in turn 


ibc(i)=2; 


end; % each node in turn 


% 


Bs 


% INPUT, STORE AND OUTPUT THE PRESCRIBED POTENTIAL BOUNDARY CONDITIONS. 


if(nbcp > 0) 
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for ibcp=1:nbcp; 
line=fgetl (fid5) ; 
vec=str2num(line) ; 
isegbc (ibcp)=vec(1); psiseg(ibcp) =vec (2); 


end; 


fprintf (fid6é, ['\n','PRESCRIBED POTENTIAL BOUNDARY CONDITIONS','\n']); 


for ibcp=l:nbcp; % each segment with prescribed potential 


iseg=isegbc (ibcp); 


if(iseg < 1 || iseg > nsegtot) 


fprintf (fid6é, ['\n', 'ISEG = ','%6i',' OUTSIDE PERMITTED RANGE', 


' 1 T0','S6i','\n'],iseg,nsegtot) ; 
error('iseg error'); 
end; 


fo) 


for i=ifirst (iseg):ilast(iseg); % each node on current segment 


ibe (i)=1; 
store (i)=psiseg(ibcp); 


end; % each node on current segment 


fprintf (fid6, ['\n', 'POTENTIAL =','$12.4e',' AT NODES ','S%6i', 


: TO ','S6i','\n'],psiseg(ibcp) ,ifirst (iseg),ilast(iseg) ); 


end; % each segment with prescribed potential 


end; 


% 


r. 


foe) 


INPUT, STORE AND OUTPUT THE PRESCRIBED POTENTIAL GRADIENT BOUNDARY 


ol? 


CONDITIONS. 
if (nbcd > 0) 
for ibcd=1:nbcd; 
line=fgetl (fid5) ; 
vec=str2num(line) ; 
isegbc (ibcd) =vec (1); 
dpsiseg (ibcd) =vec (2); 
end; 
fprintf (fid6, ['\n', 
"PRESCRIBED POTENTIAL GRADIENT BOUNDARY CONDITIONS','\n']); 


for ibcd=1:nbcd; % each segment with prescribed potential gradient 


iseg=isegbc (ibcd) ; 
if(iseg < 1 || iseg > nsegtot) 
fprintf (fid6é, ['\n', 'ISEG = ','%6i',' OUTSIDE 


U 


ERMITTED RANGE', 


' 1 T0','S6i','\n'],iseg,nsegtot) ; 
error('iseg error'); 
end; 
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for i=ifirst (iseg):ilast(iseg); % each node on current segment 
ibe (i) =2; 
store (i)=dpsiseg (ibcd) ; 
end; % each node on current segment 
fprintf (fide, ['\n', 'GRADIENT =','%12.4e',' AT NODES ','%S6i', 
! TO ', 'S6i','\n'],dpsiseg(ibcd) ,ifirst (iseg),ilast(iseg)); 


end; % each segment with prescribed potential gradient 


& INPUT, STORE AND OUTPUT THE MIXED BOUNDARY CONDITIONS. 
% ASSUMED FORM - DPSI=ALPHA*PSI+BETA. 
if(nbcm > 0) 


for ibcm=1:nbcm; 
line=fgetl (fid5) ; 
vec=str2num(line) ; 
isegbc (ibcm) =vec (1); 
alphaseg(ibcm)=vec (2); 
betaseg (ibcm) =vec (3); 


end; 


fprintf (fid6, ['\n', 'PRESCRIBED MIXED BOUNDARY CONDITIONS','\n']); 
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for ibcm=l:nbcm; % each segment with prescribed mixed condition 


iseg=isegbc (ibcm) ; 


if(iseg < 1 || iseg > nsegtot) 


fprintf (fidé, ['\n','ISEG = ','%6i',' OUTSIDE 


U 


ERMITTED RANGE', 


1 TO', 'S6i','\n'],iseg,nsegtot) ; 
error('iseg error'); 


end; 


for i=ifirst (iseg):ilast(iseg); % each node on current segment 
ibe (i)=3; 
alpha (i)=alphaseg(ibcm) ; 
beta (i)=betaseg (ibcm) ; 


end; % each node on current segment 


fprintf (fid6é, ['\n', 'ALPHA =','%S12.4e',' BETA =','%312.4e', 
' AT NODES ','%6i',' TO ','%6i','\n'],alphaseg(ibcm), 


betaseg(ibcm), ifirst (iseg),ilast(iseg)); 


end; % each segment with prescribed mixed condition 


end; 


% ASSEMBLE THE VECTOR OF KNOWN VARIABLES, SCALING ANY PRESCRIBED 


GRADI] 


Gl 


NTS. 
for i=l:nnp; % each node in turn 
if(ibc(i) == 1) 
dpsi(i)=store (i); 


end; 


end; % each node in turn 
Qo 

fe} 

return; 


end Sfunction bcs 


function poisson (varargin) 


% 


% MODIFY BOUNDARY CONDITIONS IF GOVERNING EQUATION IS POISSON TYP 


1B 


% 
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global maxl psipi alpha dpsipi dpsi ibc nnp uny unx f1 yc ynode xc xnode 


% 


\ 


6 INITIALISE THE PARTICULAR INTEGRAL ARRAYS. 


for i=l:nnp; % each node in turn 
psipi(i)=0.; 
dpsipi(i)=0.; 


end; % each node in turn 


% FIND AND STORE THE POTENTIAL AND POTENTIAL GRADIENT AT EVERY NODI 


Gl 


% DUE TO THE PARTICULAR INTEGRAL. 


zr 


xc=xc/maxl; 
yco=yc/maxl; 
f1=f1*maxl%2; 
for i=l:nnp; % each node in turn 
xx=xnode (i) -xc; 
yy=ynode (i) -yc; 
psipi(i)=0.25*f1* (xx*2+yy%2) ; 
dpsipi (i) =0.5*f1* (xx*unx(i)t+yy*uny(i)); 
end; % each node in turn 


% 


% SUBTRACT THE PARTICULAR INTEGRAL CONTRIBUTIONS FROM TH 


r 


PRESCRIBED 


% BOUNDARY CONDITIONS. 


for i=l:nnp; % each node in turn 
if(ibc(i) == 1) 
dpsi(i)=dpsi(i)-psipi(i); 


end; 


end; % each node in turn 


a 
fe} 
return; 


end Sfunction poisson 
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function frmtrx(varargin) 


% 


% SUBPROGRAM TO FORM THE COEFFICIENT MATRIX AND RIGHT HAND SIDE 


< 


ECTOR, 


£5 


% MODIFIED TO SUIT THE BOUNDARY CONDITIONS. 


% 


global a dpsi maxl alpha ibc nnp 


% 


% DEFINE THE NUMBER OF COLUMNS IN THE EXTENDED COEFFICIENT MATRIX A. 
jJmax=nnpt+1; 


% 


% FORM THE COEFFICIENT MATRIX A, AND THE RIGHT HAND SIDE VECTOR B*DPSI. 


for i=l:nnp; % take each node in turn as P 
bdpsi=0.; 


for j=l:nnp; % take each element in turn to contain Q 


foe) 


EVALUATE THE KERNELS WHEN P IS NOT IN THE ELEMENT CONTAINING Q. 


if(i ~= 9) 
[aij,bij]=kernel (i,j); 


end; 


oe 
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% EVALUATE THE KERNELS WHEN P IS IN THE ELEMENT CONTAINING Q. 


if(i == j) 
aij=pi; 
bij=kern2 (4); 


end; 


foe) 


oP 


IF POTENTIAL IS PRESCRIBED OVER THE ELEMENT CONTAINING Q, 


% INTERCHANGE THE A AND B COEFFICIENTS. 
if (ibe(j) == 1) 


temp=aij; 
aij=-bij; 
bij=-temp; 


end; 


oe 


foe) 


IF THE BOUNDARY CONDITION OVER THE ELEMENT CONTAINING QO IS MIX 


Ba 
oO 
~ 


ol? 


MODIFY THE A COEFFICIENT. 
if(ibe(y) == 3) 


aij=aij-bij*alpha(j) *maxl; 


end; 


foe) 


foe) 


STORE THE A COEFFICIENT AND ACCUMULATE THE B*DPSI VECTOR COEFFICIENT. 
a(i,j)=aij; 


bdpsi=bdpsit+bij*dpsi (4); 


end; % take each element in turn to contain Q 


foe) 


oe 


STORE THE B*DPSI COEFFICIENT AS AN EXTENSION OF MATRIX A. 


a(i,jmax)=bdpsi; 


end; % take each node in turn as P 
o 
oO 


return; 


end %function frmtrx 


function [aij,bij]J=kernel (i,j) 


% 


% SUBPROGRAM TO EVALUATE THE INTEGRALS OF THE 


XN 


ERNEL FUNCTIONS 


% WHEN P IS NOT IN THE ELEMENT CONTAINING Q. 


% 


global uny unx ynode yeend xnode xeend nep2 nepl fid6 


% 
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% FIND THE COMPONENTS OF THE RADIAL DISTANCES OF P FROM THE ENDS 


% OF THE ELEMENT CONTAINING Q, AND THE DISTANCES THEMSELVES. 


Bs 


iepl=nepl1 (4); 

Llep2=nep2 (4); 
rlx=xeend (iepl1) -xnode (i); 
r2x=xeend (iep2) -xnode (i); 
rly=yeend (iepl) -ynode (i); 
r2y=yeend (iep2) -ynode (i); 
rl=sqrt (r1x*2+rly%*2); 

r2=sqrt (r2x*2+r2y%2) ; 

if(rl < 1.0e-6 || r2 < 1.0e-6) 


fprintf (fid6é, ['\n','ERROR - INTERNAL POINT COINCIDENT WITH AN END', 


' POINT OF ELEMENT', '%6i','\n'],3)3 


error('coincident points'); 


end; 


fo) 


% FIND TH 


Ea 


COMPONENTS OF THE UNIT VECTORS FROM P TO THE ENDS OF 


zr 


fo) 


THE ELEMENT CONTAINING Q. 


urlx=rlx/rl; 
ur2x=r2x/r2; 
urly=rly/rl; 
ur2y=r2y/r2; 


% 


% FIND THE PERPENDICULAR DISTANCE OF P FROM THE ELEMENT CONTAINING Q. 


= 


d=rl1x*unx(j)+rly*uny (4); 


% 


% EVALUATE THE INTEGRALS OF THE KERNELS. 


aij=asin(urly*ur2x-urlx*ur2y) ; 


costh=urlx*ur2xturly*ur2y; 


if(costh < 0. && aij > 0.) 
aij=pi-aij; 

end; 

if(costh < 0. && aij <= 0.) 
aij=-pi-aij; 

end; 

sinth1l=unx (j) *urly-uny(j) *urlx; 

sinth2=unx (j) *ur2y-uny (j) *ur2x; 

bliml=rl*sinthl* (log(1./r1)+1.); 

blim2=r2*sinth2* (log(1./r2)+1.); 

bij=blim2-bliml+d*aij; 
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o 
fo} 
return; 


end %function kernel 


function bij=kern2(j) 


% 


% SUBPROGRAM TO EVALUATE THE INTEGRAL OF THE SECOND KERNEL 


% FUNCTION WHEN P IS IN THE ELEMENT CONTAINING Q. 


global maxl elength 


% 


% EVALUATE THE SEMI LENGTH OF THE 


r 
tz 
rae 


EMENT CONTAINING Q. 


r1=0.5*elength(j) /maxl; 


% 


S$ HENCE THE INTEGRAL OF THE 
bij=2.*r1* (log(1./r1)41.); 


~ 


KERNEL. 


Qo 
oO 
return; 


end %function kern2 
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function output (varargin) 


% 


% SUBPROGRAM TO WRITE OUT THE NODAL POINT VALUES OF POTENTIAL AND 


% POTENTIAL GRADIENT, AND COMPUTE POTENTIAL FLOWS ACROSS TH 


EA 


oe 


BOUNDARY SEGMENTS. 


% 


global nsegtot flowseg elength dpsit isegelem nel psit maxl dpsipi 
psipi fl dpsi psi nnp beta alpha ibc fidé 


% 


% ARRANGE FOR PSI AND DPSI TO CONTAIN THE POTENTIALS AND POTENTIAL 


% GRADII 


Gl 


NTS, RESPECTIVELY. 


for i=l:nnp; % each node in turn 


if(ibc(i) == 1) 


psi (i)=dpsi (1); 


psitot=psi(i)+psipi(i); 
dpsi(i)=(alpha(i) *psitott+beta(i)) *maxl-dpsipi (i); 
end; 
end; % each node in turn 


% 


% ADD CONTRIBUTIONS OF THE PARTICULAR INTEGRAL. 


fprintf (fide, ['\n','NODAL POINT POTENTIALS AND POTENTIAL GRADIENTS', 


"nt,  \n" >t a PSI DPSI Y,  \n Se 
for i=l:nnp; % each node in turn 
psit(i)=psi(i); 
dpsit (i)=dpsi(i); 
if(f1l ~= 0.) 


psit (i) =psit(i)+psipi (i); 
dpsit (i) =dpsit(i)+dpsipi (i); 


end; 


oe 


foe) 


REMOVE THE SCALE FACTOR FROM THE GRADIENT VALUE 


a9 


= 
n 


dpsit (i) =dpsit (i) /maxl; 


foe) 


oP 


OUTPUT THE NODAL VALUES OF POTENTIAL AND POTENTIAL GRADIENT. 
fprintf (fidé, [' ', 'S6i','%15.6e','$15.6e','\n'],i,psit(i),dpsit(i)); 


zr 


end; % each node in turn 
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% 


% COMPUT 


= 


THE POTENTIAL FLOWS ACROSS THE BOUNDARY SEGMENTS. 


r 


flowin=0.; 

flowout=0.; 

for iseg=l:nsegtot; % each segment in turn 
flowseg (iseg)=0.; 


end; % each segment in turn 


for m=l:nel; % each element in turn 
iseg=isegelem(m) ; 
flowelem=dpsit (m) *elength (m) ; 


flowseg (iseg) =flowseg (iseg) +flowelem; 


if (flowelem > 0.) 
flowin=flowintflowelem; 

end; 

if (flowelem < 0.) 
flowout=flowout-flowelem; 

end; 


end; % each element in turn 


fprintf (fid6é, ['\n', 


"POTENTIAL FLOWS INTO DOMAIN ACROSS BOUNDARY S 


as 


IGMENTS', '\n', '\n', 


E 


' SEGMENT FLOW','\n']); 


for iseg=1l:nsegtot; 


fprintf (fid6é, ['S5i','%16.6e', '\n'],iseg,flowseg(iseg) ); 
end; 


fprintf (fide, ['\n', 'TOTAL POTENTIAL FLOW INTO DOMAIN =','%15.6e', 


"\n','\n', 'TOTAL POTENTIAL FLOW OUT OF DOMAIN =','%15.6e', 
"\n'],flowin, flowout) ; 
return; 


end Sfunction output 


function internal (varargin) 


% 


% SUBPROGRAM TO COMPUTE AND OUTPUT TH 


= 


6 


POTENTIALS AT SELECTED 


% INTERNAL POINTS. 


% 


global fl yc ynode xc xnode dpsi psi nnp maxl fid5 fid6 


% 


% INPUT NUMBER OF INTERNAL POINTS. 
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line=fgetl (fid5) ; 

nint=str2num (line) ; 

if(nint == 0) 
return; 


end; 


Appendix C: Matlab Version of Constant Boundary 
Element Program for Potential Problems 


fprintf (fide, ['\n', 'POTENTIALS AT INTERNAL POINTS','\n','\n', 


: PSI Xx 


% 


% INPUT THE INTERNAL POINT COORDINATES. 


° 


for iint=l:nint; % each internal point in turn 


line=fgetl (fid5) ; 
vec=str2num (line) ; 
xint=vec(1); yint=vec (2); 
xnode (1) =xint/maxl; 


ynode (1) =yint/maxl; 


foe) 


oe 
x 


sum=0.; 


for j=l:nnp; % each node in turn 


i=1; 
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[aij,bij]=kernel (i,j); 


sum=sum-aij*psi(j)+bij*dpsi(j); 


fo) 


end; % each node in turn 
psiip=sum*0.5/pi; 
psiipt=psiip; 


foe) 


% ADD THE PARTICULAR INTEGRAL FOR A POISSON TYPE PROBLEM. 
Li(f1- = 90's) 
xx=xnode (1) -xc; 
yy=ynode (1) -yc; 
psiipt=psiiptt+0.25*f1* (xx*2+yy%2) ; 
end; 
% OUTPUT THE POTENTIAL AT THE INTERNAL POINT. 
fprintf (fid6é, ['\n','%S14.6e',' ', '312.4e', '312.4e'], 


psiipt,xint,yint); 
end; % each internal point in turn 
return; 


end function internal 


function [x,iflag]=elimin(a,neqn) 


foe) 


% SUBROUTINE FOR SOLVING SIMULTANEOUS LINEAR EQUATIONS BY GAUSSIAN 


zr 


% ELIMINATION WITH PARTIAL PIVOTING. 


oe 


6 INITIALIZI 


EI 


ILL-CONDITIONING FLAG. 
iflag=0; 
for i=l:neqn; x(i)=0.; end; 


% 


% SCALE EACH EQUATION TO HAVE A MAXIMUM COEFFICIENT MAGNITUDE OF UNITY. 
jJmax=negqnt1; 
for i=l:neqn; % each equation in turn 
amax=0.; 
for j=l:neqn; % search for maximum 
absa=abs(a(i,j)); 
if(absa > amax) 
amax=absa; 


end; 


end; % search for maximum 
og 
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for j=l:jmax; % scale coefficients 
a(i,j)=a(i,j) /amax; 
end; % scale coefficients 


fo) 


end; % each equation in turn 


% 


% COMMENCE ELIMINATION PROCESS. 


for k=l:neqn-1; % eliminate each variable in turn 


% 


ol? 


SEARCH LEADING COLUMN OF THE COEFFICIENT MATRIX FROM THE DIAGONAL 


foe) 


DOWNWARDS FOR THE LARGEST VALUE. 


r 


imax=k; 
for i=k+l:neqn; % search for largest value 
if(abs(a(i,k)) > abs(a(imax,k))) 
imax=i; 
end; 


end; % search for largest value 


fo) 


% IF NECESSARY, INTERCHANGE EQUATIONS TO MAKE THE LARGEST COEFFICIENT 


oe 


BECOME THE PIVOTAL COEFFICIENT. 


if (imax ~= k) 
for j=k:jmax; % interchange coefficients 
atemp=a(k,j); 
a(k,j)=a(imax,j); 
a (imax, j)=atemp; 


end; % interchange coefficients 


end; 


oe 


oP 
x 


ELIMINATE X(K) FROM EQUATIONS (K+1) TO NEON, FIRST TESTING FOR 


foe) 


EXCESSIVELY SMALL PIVOTAL COEFFICIENT (ASSOCIATED WITH A SINGULAR 


ol? 


OR VERY ILL-CONDITIONED MATRIX). 


if (abs(a(k,k)) < 1.0e-5) 
iflag=1; 
return; 
end; 
for i=k+l:neqn; % each of remaining equations 
fact=a(i,k)/a(k,k); 
for j=k:jmax; % modify coefficients 
a(i,j)=a(i,j)-fact*a(k,j); 


end; % modify coefficient 
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end; % each of remaining equations 


% 


end; % eliminate each variable in turn 


% 


% SOLVE THE EQUATIONS BY BACK SUBSTITUTION, FIRST TESTING 


% FOR AN EXCESSIVELY SMALL LAST DIAGONAL COEFFICIENT. 


if (abs (a(neqn,negn)) < 1.0e-5) 
iflag=1; 
return; 
end; 
x (neqn) =a (neqn, jmax) /a(neqn,neqn) ; 
for i=neqn-1:-1:1; % then each unknown in turn backwards 
sum=a (i, j}max) ; 
for j=it+l:neqn; % sum products 
sum=sum-a (i,j) *x(4); 
end; % sum products 
x(i)=sum/a(i,i); 


end; % then each unknown in turn backwards 


return; 


end function elimin 
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The equivalent of the Fortran SHAREDDDATA2PC is shareddata2pc, stored as the file shareddata2pc.m, 


is as follows. 
ao 


%%%S--- module shareddata2pc; 


% module STORING SHARED DATA. 


global xeend; if isempty(xeend), xeend=zeros(1,1010); end; 


global yeend; if isempty(yeend), yeend=zeros(1,1010); end; 


global ynode; if isem 


p 
p 

global xnode; if isempty(xnode), xnode=zeros(1,1000); end; 
pty (ynode), ynode=zeros(1,1000); end; 
p 


global xsend; if isempty(xsend), xsend=zeros(1,1000); end; 


global ysend; if isempty(ysend), ysend=zeros(1,1000); end; 


global unx; if isempty(unx), unx=zeros(1,1000); end; 
global uny; if isempty(uny), uny=zeros(1,1000); end; 
global f1; if isempty(f1), f£1=0; end; 


global xc; if isempty(xc), xc=0; end; 


global yc; if isempty(yc), yc=0; end; 
global psi; if isempty(psi), psi=zeros(1,1000); end; 


global dpsi; if isempty(dpsi), dpsi=zeros(1,1000); end; 


global alpha; if isempty(alpha), alpha=zeros(1,1000); end; 
global beta; if isempty(beta), beta=zeros(1,1000); end; 
global psiseg; if isempty(psiseg), psiseg=zeros(1,1000); end; 


global dpsiseg; if isempty(dpsiseg), dpsiseg=zeros(1,1000); end; 


global alphaseg; if isempty(alphaseg), alphaseg=zeros(1,1000); 


global betaseg; if isempty(betaseg), betaseg=zeros(1,1000); end; 


global store; if isempty(store), store=zeros(1,1000); end; 


global psipi; if isempty(psipi), psipi=zeros(1,1000); end; 


global dpsipi; if isempty(dpsipi), dpsipi=zeros(1,1000); end; 


global psit; if isempty(psit), psit=zeros(1,1000); end; 
global dpsit; if isempty(dpsit), dpsit=zeros(1,1000); end; 


global flowseg; if isempty(flowseg), flowseg=zeros(1,1000); end; 
global a; if isempty(a), a=zeros(1000,1001); end; 


global maxl; if isempty(maxl), maxl=0; end; 


global elength; if isempty(elength), elength=zeros(1,1000); end; 


global nel; if isempty(nel), nel=0; end; 


global nnp; if isempty(nnp), nnp=0; end; 
global maxnnp; if isempty(maxnnp), maxnnp=0; end; 


global maxnb; if isempty(maxnb), maxnb=0; end; 
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global nepl; if isempty(nepl), nepl=zeros(1,1000); end; 

global nep2; if isempty(nep2), nep2=zeros(1,1000); end; 

global neend; if isempty(neend), neend=0; end; 

global nbound; if isempty(nbound), nbound=0; end; 

global nsegtot; if isempty(nsegtot), nsegtot=0; end; 

global nnpb; if isempty(nnpb), nnpb=zeros(1,10); end; 

global nsegb; if isempty(nsegb), nsegb=zeros(1,10); end; 

global nbcp; if isempty(nbcp), nbcp=0; end; 

global nbcd; if isempty(nbcd), nbcd=0; end; 
p 


global nbcm; if isempty(nbcm), nbcm=0; end; 


global nbct; if isempty(nbct), nbct=0; end; 
global ibc; if isempty(ibc), ibc=zeros(1,1000); end; 


global isegbc; if isempty(isegbc), isegbc=zeros(1,1000); end; 
global ifirst; if isempty(ifirst), ifirst=zeros(1,1000); end; 
global ilast; if isempty(ilast), ilast=zeros(1,1000); end; 


global isegend; if isempty(isegend), isegend=zeros(1,1000); end; 


global isegelem; if isempty(isegelem), isegelem=zeros(1,1000); end; 


Finally, the alternative form of function “internal”, which is required to carry out area integration over 


a rectangular solution domain (described in Section 3.3), is as follows. 


function internal (varargin) 


so 
io) 


eo 
io) 


n 


UBPROGRAM TO FIND AND OUTPUT TH 


a5 


INTEGRAL OF POTENTIAL OVER THE 


% AREA OF THE SOLUTION DOMAIN. 


=| 


% HIS VERSION IS DESIGNED FOR A RECTANGULAR DOMAIN. 
global nbcp isegbc psiseg xsend ysend xnode ynode maxl nnp psi 
dpsi xc ye fl fid5 fidé 


global psival; if isempty(psival), psival=zeros(1,300); end; 


global yintgl; if isempty(yintgl), yintgl=zeros(1,300); end; 


eo 
io) 


T. 


% INPUT THE NUMBERS OF SAMPLING POINTS INSID 


THE DOMAIN IN TH 


ea 
bad 


r 


% AND Y DIRECTIONS, WHICH SHOULD BOTH BE ODD. 


line=fgetl (fid5) ; 
vec=str2num(line) ; 
nx=vec(1); ny=vec(2); 
if(rem(nx,2) == 0) 


fprintf (fide, ['\n', 'WARNING - NX =','S4i', 


' NOT ODD - INCREASE BY 1','\n'],nx); 
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nx=nxt1; 
end; 
if(rem(ny,2) == 0) 
fprintf (fide, ['\n', 'WARNING - NY =','S4i', 


' NOT ODD - INCREASE BY 1','\n'],ny); 


ny=nytl1; 
end; 
i1f(nx+2 > 300 || ny+2 > 300) 
fprintf (fid6é, ['\n', 'NX =', 'S6i',' NI NY =", 136i", ay 


"ARRAY DIMENSIONS EXCEEDED',' IN INTEGRATION OVER DOMAIN', 


"\n'],nx,ny); 
error('array dimension error in internal'); 


end; 


% FIND PRESCRIBED BOUNDARY VALUES OF POTENTIAL. 


fo) 


for ibcp=l:nbcp % each segment in turn 
if(isegbc(ibcp) == 1) 
psibot=psiseg(ibcp) ; 
end; 


if(isegbc(ibcp) == 2) 
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psiright=psiseg(ibcp); 
end; 
if(isegbc(ibcp) == 3) 
psitop=psiseg(ibcp) ; 
end; 
if(isegbc(ibcp) == 4) 
psileft=psiseg(ibcp) ; 


end; 


nd % each segment in turn; 


% FIND COORDINATES OF DOMAIN SIDES. 


ybot=ysend (1); 
xright=xsend (2); 
ytop=ysend (3); 
xleft=xsend (4); 


% OUTER LOOP FOR INTEGRATION IN X DIRECTION. 


hx=(xright-xleft) / (nx+1); 

hy=(ytop-ybot) / (ny+1); 

ixmax=nx+2; 

iymax=ny+2; 

yintgl (1) =psileft* (ytop-ybot) ; 

yintgl (ixmax) =psiright* (ytop-ybot) ; 

for ix=2:ixmax-1; % each x position in turn 
psival (1)=psibot; 
psival (iymax)=psitop; 


xpoint=xleftthx* (ix-1); 


% INNER LOOP FOR INTEGRATION IN Y DIRECTION. 


foe) 


fo) 


FIRST FIND POTENTIALS AT THE INTERNAL POINTS. 


fo) 


for iy=2:iymax-1; % each y position in turn 


ypoint=ybotthy* (iy-1); 
xnode (1) =xpoint/maxl; 


ynode (1) =ypoint/maxl; 


oe 


fo) 
[] 


INTEGRATE ROUND TH 


BOUNDARY. 


sum=0.; 
for j=l:nnp; % each node in turn 
i= 
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[aij,bij]=kernel (i,j); 


sum=sum-aij*psi(j)+bij*dpsi(j); 


end; % each node in turn; 
psiip=sum*0.5/pi; 
psiipt=psiip; 


oe 


ol? 


ADD PARTICULAR INTEGRAL. 
if (fl ~= 0.) 


xx=xnode (1) -xc; 
yy=ynode (1) -yc; 
psiipt=psiiptt+0.25*f1* (xx*2+yy%2) ; 


end; 


psival (iy)=psiipt; 


end; % each y position in turn 


foe) 


INTEGRATE POTENTIAL IN Y DIRECTION. 


sum=0.; 


for iy=2:2:iymax-1; % alternate points in the y direction 


sum=sumt+tpsival (iy-1)+4.*psival (iy) +psival (iy+1); 


fo) 


end; % alternate points in the y direction 
yintgl (ix) =sum*hy/3.; 
end; % each x position in turn 


% 


% NOW INTEGRATE IN X DIRECTION. 


sum=0.; 


for ix=2:2:ixmax-1; % alternate points in the x direction 


sum=sumt+tyintgl (ix-1)+4.*yintgl (ix) +yintgl (ix+1); 
end; © alternate points in the x direction 
psiintg=sum*hx/3.; 
area=(xright-xleft) * (ytop-ybot) ; 
apsiintg=psiintg/area; 


% OUTPUT RESULT. 


Le 


fprintf (fide, ['\n', 'INTEGRAL OF POTENTIAL OVER SOLUTION DOMAIN =', 


'€15.6e','\n', 'AREA AVERAGE OVER SOLUTION DOMAIN =','%15.6e', 


"\n', 'NUMBERS OF INTERNAL POINTS IN X AND Y DIRECTIONS =', 


ee ofa eae, ', "AND', 'S5i', '\n'],psiintg,apsiintg,nx,ny); 
return; 


end S$function internal 
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Appendix D: Matlab Version of 
Quadratic Boundary Element 
Program for Potential Problems 


The aim of this appendix is to present a Matlab version of the program BEM2PQ which is described in 


detail in its Fortran form in Chapter 4. 


The Matlab version is as far as possible a literal translation of the Fortran. This means that the detailed 
explanations provided in Chapter 4 are also applicable to the Matlab script. The same function and variable 
names are used in the Fortran and Matlab programs: upper case names in Fortran become lower case in 
Matlab. The definitions of the names given in Some Program Variable Names at the beginnings of both 
Parts of the book are equally valid for both. The introduction to Appendix C provides further comments 


on the differences between Fortran and Matlab, particularly as they affect the present programs. 


The Matlab version of BEM2PQ, stored as the file BEM2PQ.m, is as follows. 
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function BEM2PQ(varargin) 


% 


% PROGRAM FOR SOLVING TWO DIMENSIONAL POTENTIAL PROBLEMS BY THE BOUNDARY 


% ELEMENT METHOD USING QUADRATIC ELEMENTS. 


clear global; clear functions; 
global fid5 fid6é fid7 
shareddata2pq 
fid5=fopen('DATA','r'); 
fid6é=fopen('RESULTS', 'wt+'); 


fid7=fopen ('MESHRES', 'wt+'); 


% 


% DEFINE THE MAXIMUM PROBLEM SIZE 


U 


ERMITTED BY THE ARRAY DIMENSIONS. 


maxnel=500; 
maxnnp=1000; 
maxnb=10; 


% INPUT THE PROBLEM TITLE AND TYPE. 


r 


intitle; 


% 


% INPUT AND GENERATE THE MESH DATA. 


meshq; 


% 


% OUTPUT THE 


< 


ESH DATA. 


mshout; 


% 


Gl 


% INPUT, PROCESS AND OUTPUT THE BOUNDARY CONDITIONS. 


bes; 


% 


% EVALUATE AND STORE VALUES OF THE SHAPE FUNCTIONS AND THEIR DERIVATIV. 


Gl 
n 


% AT THE GAUSS POINTS AND NODES. 


shape; 


% 


Gl 


% IF GOVERNING EQUATION IS POISSON TYPE, MODIFY THE BOUNDARY CONDITIONS. 


poisson; 


% 


%& FORM THE COEFFICIENT MATRIX AND APPLY THE BOUNDARY CONDITIONS. 


r 


frmtrx; 
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% SOLVE THE LINEAR EQUATIONS. 


[psi,iflag]=elimin(a,nnp) ; 
if (iflag == 1) 
fprintf (fid6é, ['\n' , 


"MATRIX ILL-CONDITIONING DETECTED IN EQUATION SOLVER','\n']); 


error ('MATRIX ILL-CONDITIONING DETECTED IN EQUATION SOLVER'); 


end; 


% OUTPUT NODAL POINT VALUES OF POTENTIAL AND POTENTIAL GRADIENT, 


% ALSO POTENTIAL FLOWS ACROSS BOUNDARY SEGMENTS. 


output; 


% 


% COMPUTE VALUES OF POTENTIAL AT INTERNAL POINTS. 


internal; 


% 


end Sprogram BEM2PQ 


function intitle (varargin) 


% 


% SUBPROGRAM TO INPUT PROBLEM TITLE AND TYPE (LAPLACE OR POISSON). 


ae 


% 


global yc xc f1 fid5 fid6 


% 


% INPUT THE PROBLEM TITLE. 


r 


title=fgetl (fid5) ; 


fprintf (fid6é, ['QUADRATIC BOUNDARY ELEMENT SOLUTION FOR', 


' [TWO DIMENSIONAL POTENTIAL PROBLEM','\n','\n','%s','\n'],title); 


% 


% INPUT TH 


r 


VALUE OF THE (CONSTANT) Fl FUNCTION IN TH 


zr 


r 


GOVERNING 


% EQUATION. 


line=fgetl (fid5) ; 
fl=str2num(line); 


if(f1l == 0.) 


fprintf (fid6é, ['\n', 'LAPLAC 


= 


EQUATION','\n']); 


end; 
if(fl ~= 0.) 
writef (fid6, ['\n', 'POISSON EQUATION, Fl = ','%12.4e', 


, CONSTANT', '\n'],f£1); 
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% INPUT THE COORDINATES OF THE ORIGIN FOR THE PARTICULAR INTEGRAL. 
line=fgetl (fid5) ; 


vec=str2num(line) ; 
xc=vec(1); yc=vec(2); 


fprintf (fid6é, ['\n','ORIGIN FOR PARTICULAR INTEGRAL: Gy 


'X =','%12.4e',' Y =', 'S$12.4e','\n'],xc,yc); 
end; 
return; 


end %function intitle 


function meshq(varargin) 


% 


% SUBPROGRAM TO READ IN AND GENERATE THE GEOMETRIC DATA FOR A MESH OF 


oe 


QUADRATIC ELEMENTS. 


global node maxl ynode xnode nnp nel neend m3 ml angstore yeend xeend 


isegelem mfirst isegend ysend xsend mlast maxnel nelb nsegb 


nsegtot nbound maxnb fid5 fid6 
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% 


% INPUT THE NUMBER OF SEPARATE BOUNDARIES. 


line=fgetl (fid5) ; 
nbound=str2num (line) ; 


% 


S$ TEST THE NUMBER OF BOUNDARIES. 
if (nbound < 1 || nbound > maxnb) 


fprintf (fidé, ['\n', 'NBOUND =','%4i', 


'  OUTSID 


Fs 


PERMITTED RANGE 1 TO', '%34i','\n'],nbound,maxnb) ; 


E 


error('nbound error'); 


end; 


% 


% FOR EACH BOUNDARY IN TURN INPUT THE NUMBER OF SEGMENTS. 


nel=0; 
ieend=0; 
nsegtot=0; 
mmaxb=0; 
for ibound=1:nbound; % each boundary in turn 
nelb (ibound) =0; 
mminb=mmaxb+1; 
line=fgetl (fid5) ; 
nsegb (ibound) =str2num (line) ; 


nsegtot=fix (nsegtottnsegb (ibound) ); 


oP 


TEST THE NUMBER OF SEGMENTS. 


if(nsegtot < 1 || nsegtot > maxnel) 


fprintf (fid6é, ['\n', 'NS 


Gl 


GTOT =', 'S6i', 


' OUTSIDE PERMITTED RANGE 1 TO','%6i','\n'],nsegtot,maxnel) ; 


error('nsegtot error'); 


end; 


% INPUT THE CARTESIAN GLOBAL COORDINATES OF THE END POINTS OF TH 


Gl 


% SEGMENTS. TAKE THE END POINTS CONSECUTIVELY, K 


zr 


-EPING THE DOMAIN 


6 TO THE LEFT OF THE DIRECTION OF NUMBERING. 


6 Each line of input data is assumed to contain an arbitrary number 
& of pairs of x,y coordinates. 

isend=0; 

while isend < nsegb(ibound) ; 


line=fgetl (fid5) ; 
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vec=str2num(line) ; 

veclength=length (vec) ; 

np=veclength/2; 

for ip=l:np; 
isend=isendt+1; 


xsend(isend) =vec(2*ip-1); 


ysend(isend) =vec(2*ip) ; 


oe 
1s) 


EFINE THE FIRST END POINT ON THE CURRENT BOUNDARY. 


ieend=ieend+1; 


xeend(ieend) =xsend (1); 
yeend (ieend) =ysend (1); 


% FOR EACH OF THE SEGMENTS (BETWEEN ENDS 1 AND 2, 2 AND 3, ETC.) 


% INPUT TH 


le 


RADIUS OF CURVATURE (+VE FOR CONVEX WITH CENTRE OF 


r. 


% CURVATURE INSIDE DOMAIN, -VE FOR CONCAVE), THE NUMBER OF 


z E 


iLEMENTS IN THE SEGMENT, AND THE LENGTH RATIO BETWEEN SUCCESSIVE 


% ELEMENTS IN THE DIRECTION OF NUMBERING. 


isegmax=nsegtot; 


isegmin=isegmax-nsegb (ibound) +1; 
for iseg=isegmin:isegmax; % each segment in turn 


line=fgetl (fid5) ; 


vec=str2num(line); 


rseg=vec(1); nelseg=vec(2); ratseg=vec (3); 


eo 
) 


% FIND AND TEST THE NUMBER OF ELEMENTS SO FAR. 


nel=fix (nelt+tnelseg) ; 


nelb (ibound) =fix (nelb (ibound) +nelseg) ; 


if(nel < 1 || nel > maxnel) 


fprintf (fid6, ['\n', 'NEL =','%6i',' OUTSIDE PERMITTED! 


' RANGE 1 TO','%6i','\n'],nel,maxnel); 


error('nel error'); 


end; 


% 


% FIRST AND LAST ELEMENTS ON CURRENT SEGMENT. 


mlast (iseg) =fix (nel) ; 


mfirst (iseg) =fix (nel-nelseg+1); 


mmaxb=mmaxb+nelseg; 
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foe) 


% COORDINATES OF THE FIRST END POINT OF THE SEGMENT. 
isend=iseg-isegmint1; 
xfirst=xsend (isend) ; 
yfirst=ysend(isend) ; 

$ COORDINATES OF THE LAST END POINT OF THE SEGMENT. 


isend=isend+1; 

if(iseg == isegmax) 
isend=1; 

end; 

xlast=xsend(isend) ; 


ylast=ysend(isend) ; 


oe 


ol? 


GENERATE ELEMENT DATA FOR A STRAIGHT SEGMENT. 


if(rseg == 0.) 


ol? 


foe) 
iw) 


EFINE THE ELEMENT END POINT COORDINATES ON THE SEGMENT. 


for m=l:nelseg; % each element in turn 


jeend=ieend+1; 
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isegend (ieend) =fix (iseg) ; 


if(ratseg == 1.) 
xeend (ieend) =xfirst+ (xlast-xfirst) * (m) / (nelseg) ; 
yeend (ieend) =yfirst+ (ylast-yfirst) * (m) / (nelseg) ; 
end; 
if(ratseg ~= 1.) 
xeend (ieend) =xfirst+ (xlast-xfirst) *(1.-ratseg*m) / 
(1.-ratseg*nelseg) ; 
yeend (ieend) =yfirst+ (ylast-yfirst) * (1.-ratseg*m) / 
(l.-ratseg*nelseg) ; 
end; 


fo) 


end; % each element in turn 


%& DEFINE THE ELEMENT NODES AND COORDINAT 


GI 
Nn 


ieend=ieend-nelseg; 


for ielseg=1l:nelseg; % each element in turn 


ieend=ieend+1; 

m=mfirst (iseg)+tielseg-1; 
i11=2*m-1; 

i2=iltl; 

13=114+2; 


if(iseg == isegmax && ielseg == nelseg) 


i3=node(mminb,1); 
end; 
node (m, 1) =fix (i1); 


node (m, 2) =fix (12) ; 


node (m, 3) =fix (13); 


isegelem(m) =fix (iseg) ; 


if(iseg == isegmin && ielseg == 1) 


xnode (il) =xeend(ieend-1); 


ynode (i1) =yeend (ieend-1) ; 


end; 


xnode (i3)=xeend(ieend) ; 
ynode (13) =yeend(ieend) ; 


xnode (i2)=0.5* (xnode (il) +xnode(i3)); 


ynode (12) =0.5* (ynode (il) +ynode(i3)); 


fo) 


oe 


STORE THE NUMBERS OF THE ADJACENT ELEMENTS. 


r 


ml (m) =fix (m-1) ; 


m3 (m) =fix (m+1) ; 
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end; % each element in turn 


end; 


es 


% GENERATE ELEMENT DATA FOR A SEGMENT IN THE FORM OF A CIRCULAR ARC. 


if(rseg ~= 0.) 


fo) 


ol? 


LOCATE THE CENTRE OF THE ARC. 


xmid=(xfirst+xlast)/2.; 
ymid=(yfirstt+tylast)/2.; 
alseg=sqrt ((xlast-xfirst) *2+(ylast-yfirst) *2); 
alperp2=rseg*2-(alseg/2.)%*2; 
if(abs(alperp2) < 1.0e-6*rseg%2) 

alperp2=0.; 
end; 


if(alperp2 < -1.0e-6*rseg%2) 


fprintf (fid6, ['\n', 'DATA ERROR FOR SEGMENT NUMBER','36i', 


r 


'\n', 'NOT POSSIBLE TO CREATE A CIRCULAR ARC','\n'],iseg); 
error('circular arc error'); 
end; 
alperp=sqrt (alperp2); 
uvilx=(xlast-xfirst) /alseg; 
uvfly=(ylast-yfirst) /alseg; 
£act=1..7 
if(rseg < 0.) 
£act==1...7 
end; 
xcent=xmid-alperp*uvfly* fact; 


ycent=ymidtalperp*uvilx* fact; 


BY THE SEGMENT. 


foe) 


FIND THE ANGLE SUBTENDED THERE 


r 


if(alperp ~= 0.) 
angseg=2.*atan(alseg*0.5/alperp) ; 
end; 
if(alperp == 0.) 
angseg=pi; 


end; 


fol) 


% DEFINE THE ELEMENT END POINT COORDINATES ON THE SEGMENT. 


angfir=atan2 (yfirst-ycent, xfirst-xcent) ; 


angstore (ieend) =0.; 
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for m=l:nelseg; % each element in turn 
ieend=ieend+1; 


isegend (ieend) =fix (iseg) ; 


if(ratseg == 1.) 
ang=angseg* (m) / (nelseg) ; 
end; 
if(ratseg ~= 1.) 
ang=angseg* (1.-ratseg*m) /(1.-ratseg*nelseg) ; 
end; 
if(rseg < 0.) 
ang=-ang; 


end; 


xeend (ieend) =xcenttabs (rseg) *cos (angfirt+ang) ; 


yeend (ieend) =ycent+abs (rseg) *sin(angfir+ang) ; 
angstore (ieend) =ang; 


end; % each element in turn 


% DEFINE THE ELEMENT NODES AND COORDINATES. 


ieend=ieend-nelseg; 


for ielseg=l:nelseg; % each element in turn 


> Apply now 
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ieend=ieendt+1; 

m=mfirst (iseg)+tielseg-1; 
i11=2*m-1; 

i2=i1t1; 


13=11+2; 


if(iseg == isegmax && ielseg == nelseg) 
i3=node(mminb,1); 

end; 

node (m, 1) =fix (11); 

node (m, 2) =fix (12); 


node (m, 3) =fix (13); 


isegelem(m) =fix (iseg) ; 

if(iseg == isegmin && ielseg == 1) 
xnode (i1)=xeend(ieend-1) ; 
ynode (i1)=yeend(ieend-1) ; 


end; 


xnode (i3)=xeend(ieend) ; 


ynode (13) =yeend (ieend) ; 
ang=0.5* (angstore (ieend-1) +angstore (ieend) ); 
xnode (i2) =xcent+abs (rseg) *cos (angfirtang) ; 


ynode (i2) =ycent+abs (rseg) *sin(angfir+ang) ; 


ol? 


fo) 


STORE THE NUMBERS OF THE ADJACENT ELEMENTS. 


ml (m) =fix (m-1) ; 
m3 (m) =fix (m+1) ; 


end; % each element in turn 


end; 


end; % each segment in turn 


oe 


oe 


ADJACENT ELEMENTS FOR END ELEMENTS OF THE BOUNDARY. 


ml (mminb) =fix (mmaxb) ; 


ix (mminb) ; 


m3 (mmaxb) = 
end; % each boundary in turn 
neend=fix (ieend) ; 


nnp=fix (nel*2) ; 


foe) 


% DETERMINE THE MAXIMUM DIMENSION OF THE SOLUTION DOMAIN. 


zr 
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for i=l:nnp; % each node in turn 
for j=l:nnp; % each other node in turn 
dist=sqrt ( (xnode (i) -xnode (j) ) *2+ (ynode (i) ~ynode(j))%*2); 
if(dist > maxl) 
maxl=dist; 
end; 
end; % each other node in turn 
end; % each node in turn 
return; 


end Sfunction meshq 


function mshout (varargin) 


% 


% SUBPROGRAM TO WRITE OUT THE 


= 


Ks 


ESH DATA. 


% 


global node maxl ynode xnode nnp nel fid7 


% 


% OUTPUT TH 


a9 


NUMBERS OF ELEMENTS AND NODES, ALSO THE NODAL 


r 


% COORDINATES. 


fprintf (fid7, ['GEOMETRIC DATA FOR THE MESH','\n','\n', 


' NUMBER OF ELEMENTS =','36i','\n','\n', 


' NUMBER OF NODAL POINTS =','%S6i','\n','\n', 


"COORDINATES OF THE NODAL POINTS','\n','\n', 


; T X Y 7, 
' I x Y '],nel,nnp); 
for i=l:nnp; 
if (mod(i,2) == 1); 
fprintf (fid7, ['\n','S6i','S12.4e','S12.4e'], 
i,xnode(i),ynode(i)); 
end; 
if (mod(i,2) == 0); 
fprintf (fid7, ['S61','%S12.4e','%12.4e']J, 


i,xnode(i),ynode(i)); 


r 
tz 
4 


% OUTPUT THE 


EMENT NODE NUMBERS. 
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fprintf (fid7, ['\n','\n', 'ELEMENT NODE N 


UMBERS', XN! » \n, 


: M ND1 ND2 ND3', 


: M ND1 ND2 ND3']); 
for m=l:nel; 
if(mod(m,2) == 1) 
fprintf (fid7, ['\n',' Yeas | 
end; 
if(mod(m,2) == 0) 
fprintf (fid7, [' ","S5i'],m); 
end; 
for in=1:3; 
forintf (fid7,'S5i',node(m,in)); 
end; 
end; 


fo) 


% SCALE THE NODAL POINT COORDINATES. 


for i=l:nnp; % each node in turn 
xnode (i) =xnode (i) /maxl; 
ynode (i) =ynode (i) /max1; 


end; % each node in turn 
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,m); 


f J 
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Appendix 


o 
fo} 
return; 


end function mshout 


function bcs (varargin) 


% 


SUI 


BPROGRAM TO INPUT, PROC 


% 


ESS AND OUTPUT T 


D: Matlab Version of Quadratic Boundary 
Element Program for Potential Problems 


H 


Gl 


BOUNDARY CONDITIONS. 


global node maxl beta dpsi ibcn ibce store m3 ml nel nnp mlast mfirst 


betaseg alphaseg betan alpha alphan nsegtot isegbc nbcm dpsiseg 


nocd psiseg nbcp maxnel nbct fid5 fid6 


G 


T THE 


NUMBERS OF SEGMENTS SUBJECT TO 


DITION. 


NBCP - PRESCRIBED POTE 


INTIAL. 


NBCD - NON-Z 


ERO PRESCRIBED NORMAL DI 


ER 
Ei 


BCM - MIX 


ED BOUNDARY CONDITION. 


= 
py 


I 


EACH TYPE OF BOUNDARY 


IVATIV 


Gl 


OF POTENTIAL. 


EGMENT NOT INCLUD 


ED IS ASSUMED TO BE 


7] 


SUBJECT TO A Zl! 


py 


oe 


1 DERIVATIVE OF POTENTIAL. 


E 


% 


line=fgetl (fid5) ; 
vec=str2num(line); 
nbcm=vec (3); 


nbcp=vec(1); nbcd=vec (2); 


% 


a 


EST TH 


G 


ESE 


BOUNDARY CONDITION NUMB 


RS. 


oO 


nbct=fix (nbcptnbcdtnbcm) ; 


|| 


nbcm < 0 


nbcd < 0 
| | 


e651", 3 


if(nbcp < 0 nbcp > maxnel 


|| || 
fprintf (fid6é, ['\n','NBCP =', 


| | 


nbcm > maxnel 


| | 
nbct < 


NBCD 


nbcd > maxnel 


0 ||nbct > maxnel) 


=','S6i',! saith 


NBCM 


G 


OUTSIDE 


P 


Ge 
B 


ERMITT 


ED RANGI 


ort) nig *NBOT Ss", Peery 


'S6i','\n'],nbcp,nbcd,nbcm, nbct,maxnel) 


0 TO', 


, 


error('numbers of boundary conditions error'); 


end; 
& INITIALISE THE BOUNDARY CONDITION STORAG 
for m=l:nel; % each element in turn 

ibce (m) =2; 

store (m)=0.; 
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alpha (m)=0.; 
beta (m) =0.; 
end; % each element in turn 


% 


% INPUT, STORE AND OUTPUT THE PRESCRIBED POTENTIAL BOUNDARY CONDITIONS. 


if(nbcp > 0) 
for ibcp=1l:nbcp; 
line=fgetl (fid5) ; 
vec=str2num(line); 
isegbc (ibcp)=vec(1); psiseg(ibcp) =vec (2); 


end; 


fprintf (fid6é, ['\n','PRESCRIBED POTENTIAL BOUNDARY CONDITIONS','\n']); 


for ibcp=l:nbcp; % each segment with prescribed potential 
iseg=isegbc (ibcp) ; 


if(iseg < 1 || iseg > nsegtot) 


fprintf (fid6, ['\n', 'ISEG = ','%$6i',' OUTSIDE PERMITTED RANGE' 


' 1 T0','S6i','\n'],iseg,nsegtot) ; 
error('iseg error'); 
end; 


for m=mfirst (iseg):mlast(iseg); teach element on current segment 


ibce(m)=1; 


store (m)=psiseg(ibcp) ; 


end; % each element on current segment 


fprintf (fid6é, ['\n', 'POTENTIAL =','%12.4e',' ON ELEMENTS ', 
'Soi',! TO ','S6i','\n'],psiseg(ibcp) ,mfirst (iseg),mlast (iseg) ); 
end; % each segment with prescribed potential 


r. 


% INPUT, STORE AND OUTPUT THE PRESCRIBED POTENTIAL GRADIENT BOUNDARY 


= 


% CONDITIONS. 
if (nbcd > 0) 
for ibcd=1:nbecd; 
line=fgetl (fid5) ; 
vec=str2num(line) ; 
isegbc (ibcd) =vec (1); 
dpsiseg (ibcd) =vec (2); 
end; 
fprintf (fid6, ['\n', 
"PRESCRIBED POTENTIAL GRADIENT BOUNDARY CONDITIONS','\n']); 


r. 
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for ibcd=1:nbcd; % each segment with prescribed potential gradient 


iseg=isegbc (ibcd) ; 


if(iseg < 1 || iseg > nsegtot) 


fprintf (fid6, ['\n', 'ISEG = ','%6i',' OUTSIDE PERMITTED RANGE' 


r 


1 TO', 'S6i','\n'],iseg,nsegtot) ; 
error('iseg error'); 

end; 

for m=mfirst (iseg) :mlast(iseg); % each element on current segment 
ibce (m) =2; 
store (m) =dpsiseg (ibcd) ; 


end; % each element on current segment 


fprintf (fid6é, ['\n', 'GRADIENT =','%12.4e',' ON ELEMENTS ', 'S6i', 


y TO ','%S6i','\n'],dpsiseg(ibcd) ,mfirst (iseg),mlast (iseg)); 


end; % each segment with prescribed potential gradient 


end; 


% 


% INPUT, STORE AND OUTPUT THE MIXED BOUNDARY CONDITIONS. 
% ASSUMED FORM - DPSI=ALPHA*PSI+BETA. 
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if (nbcm > 0) 
for ibcm=1:nbcm; 
line=fgetl (fid5) ; 
vec=str2num(line) ; 
isegbc (ibcm)=vec (1); 
alphaseg(ibcm)=vec (2); 
betaseg (ibcm) =vec (3) ; 


end; 


fprintf (fid6é, ['\n','PR 


ESCRIB 


ED MIX 


ED BOUNDARY CONDITIONS','\n']}) 


for ibcm=l:nbcm; % each segment with prescribed mixed condition 


iseg=isegbc (ibcm) ; 
|| 
fprintf (fid6é, ['\n', 'ISI 


if(iseg < 1 iseg > nsegtot) 


Vy Se 6aet pt 


EG OUTSIDE 


ERMITTED RANG 


1 TO', 'S6i','\n'],iseg,nsegtot) ; 
error('iseg error'); 
end; 


fo) 


(o) 


for m=mfirst (iseg) :mlast (iseg) ; 
ibce (m) =3; 
alpha (m)=alphaseg(ibcm) ; 


beta (m) =betaseg (ibcm) ; 


% each element node in turn 


for in=1:3; 
i=node(m, in); 
alphan(i)=alpha(m) ; 
betan (i) =beta(m); 


% 


end; each element node in turn 


end; % each element on current segment 


oe 


fprintf (fidé, ['\n', 'ALPHA =','%12.4e',' 


ee co ee 


B 


ETA =','%312.4e', 


ON EL 


EM 


ENTS TO 'S3i','\n'],alphaseg(ibcm) 


betaseg(ibcm) ,mfirst (iseg) ,mlast(iseg)); 


end; % each segment with prescribed mixed condition 
end; 
% ASSEMBLE THE VECTOR OF KNOWN VARIABLES, SCALING ANY PRESCRIBED 
GRADIENTS. 


for i=l:nnp; % each node in turn 


dpsi(i)=0.; 


, 


end; % each node in turn 


% each element in turn 


for m=l:nel; 
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for in=1:3; % each element node in turn 
i=node(m,in); 


ibcn (i) =fix (ibce (m) ); 


% CHECK THE CONDITION APPLIED TO THE ADJACENT ELEMENT FOR AN ELEMENT END 


% NODE. IF THE CONDITION IS PRESCRIBED POTENTIAL BUT THE EXISTING 


% CONDITION AT THE NODE IS NOT, THEN IMPOSE PRESCRIBED POTENTIAL. 


25 


madj=m; 

if(in == 1) 
madj=m1 (m) ; 

end; 

Lf (in, == 3) 
madj=m3 (m) ; 

end; 

if (ibce(madj) == 1 && ibcn(i) ~= 1) 
iben(i)=1; 


end; 


% STORE KNOWN VARIABLE. 


iE 


end; 
if(ibce(m) == 2 && ibcn(i) == 2) 
dpsi(i)=store(m) *maxl; 
end; 
if(ibce(m) == 3 && ibcn(i) == 3) 
dpsi (i) =beta (m) *maxl; 
end; 
end; % each element node in turn 
end; % each element in turn 
return; 


end %$function bcs 
Download free eBooks at bookboon.com 


294 


Boundary Element Methods for Engineers: Appendix D: Matlab Version of Quadratic Boundary 
Part I: Potential Problems Element Program for Potential Problems 


function poisson (varargin) 


% 


% MODIFY BOUNDARY CONDITIONS IF GOVERNING EQUATION IS POISSON TYPE. 


Gl 


global node maxl psipi alphan dpsipi dpsi ibcn nnp unmy unmx f1 


dpsipim yc ynode xc xnode nel uny unx ibce m3 ml ungy ungx 


% 


\ 


6 INITIALISE THE PARTICULAR INTEGRAL ARRAYS. 


for i=l:nnp; % each node in turn 
psipi(i)=0.; 
dpsipi(i)=0.; 

end; % each node in turn 


for m=l:nel; % each element in turn 


for in=1:3; % each element node in turn 
dpsipim(m,in)=0.; 
end; % each element node in turn 


fo) 


end; % each element in turn 


% 


% UNIT NORMALS AT THE NODES ARE REQUIRED FOR PARTICULAR INTEGRAL 
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% DERIVATIVES THERE. 


% 


% FIRST FIND THE NORMALS AT THE ELEMENT NOD! 


GI 
n 


for m=l:nel; % each element in turn 


for in=1:3; % each element node in turn 
igauss=in+10; 
it=1; 
ic=1; 
jacobi(m,igauss,it,ic); 
unmx (m, in) =ungx; 
unmy (m,in)=ungy; 
end; % each element node in turn 


fo) 


end; % each element in turn 


% 


% MERGE ELEMENT NODE NORMALS TO FIND NORMALS AT THE NODES. 


for i=l:nnp; % each node in turn 
unx (i)=0.; 
uny (i)=0.; 

end; % each node in turn 


for m=l:nel; % each element in turn 


% 


ol? 


FIRST NODE. 


EI 


i=node(m,1); 


madj=m1 (m) ; 


fo) 


ol? 


ICASE=1 BOTH CURRENT AND ADJACENT ELEMENT HAVE EITHER PRESCRIBED 


oe 
tu 
(e) 
4 

7] 
4 
=| 
H 
> 
(o) 
ve) 
'U 
ve) 


ESCRIBED GRADIENT/MIXED BOUNDARY CONDITIONS. 


oe 


ICASE=2 CURRENT ELEMENT HAS PRESCRIBED POTENTIAL, ADJACENT HAS 


a? 
tu 
ve) 
n 
Q 


IBED GRADIENT/MIXED. 


oe 


ICASE=3 CURRENT ELEMENT HAS PRESCRIBED GRADIENT/MIXED CONDITION, 


oe 
> 
iw) 
gq 
> 
Q 


ENT HAS PRESCRIBED POTENTIAL. 


if(ibce(m) == 1 && ibce(madj) == 1) 


if(ibce(m) ~= 1 && ibce(madj) ~= 1) 


if(ibce(m) == 1 && ibce(madj) ~= 1) 
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oe 


ol? 


foe) 


if(ibce(m) ~= 1 && ibce(madj) == 1) 


icase=3; 
end; 


if(icase == 1) 


unx (i) =unx (i) +unmx (m,1) ; 


uny (i) =uny (i) +tunmy(m,1); 


end; 


if(icase == 2) 


unx (i) =unmx (m,1) ; 


uny (i) =unmy (m,1) ; 


end; 


SECOND NODE. 


i=node(m,2); 
unx (1) =unmx (m, 2) ; 


uny (i) =unmy (m, 2); 


Gl 


THIRD NODE. 


if(ibce(m) ~= 1 && 


if(ibce(m) == 1 && 


if(ibce(m) == 1 && 


end; 


if(icase == 1) 


ibce(madj) ~= 1) 


ibce(madj) == 1) 


ibce(madj) ~= 1) 


ibce(madj) == 1) 


unx (1) =unx (1) +unmx (m, 3); 


uny (i) =uny (i) tunmy (m, 3) ; 


end; 


if(icase == 2) 


unx (i) =unmx (m, 3) ; 


uny (i) =unmy (m, 3) ; 


end; 


D&Whlbad trEPEBodks SF Bdk boon .Goth” 


297 


Appendix D: Matlab Version of Quadratic Boundary 


Element Program for Potential Problems 


Boundary Element Methods for Engineers: Appendix D: Matlab Version of Quadratic Boundary 
Part I: Potential Problems Element Program for Potential Problems 


foe) 


oP 
ty 
{e) 
ve) 


‘(LEMENT END NODES WITH ICASE=1, CONTRIBUTIONS TO TH 


fe] 


NORMALS 


ol? 
= 
Hi 


iL HAVE COME FROM TWO ELEMENTS, EFFECTIVELY GIVING AVERAGE 


fo) 
— 


ECTOR SUM) NORMALS, BUT WHICH MUST NOW BE REDUCED TO UNIT 


oP 


NORMALS. 

for i=1:2:nnp; % each node in turn 
denom=sqrt (unx (i) *2t+uny(i)%*2); 
unx (1) =unx (i) /denom; 
uny (i) =uny (i) /denom; 

end; % each node in turn 


% 


% FIND AND STORE THE POTENTIAL AND POTENTIAL GRADIENT AT EVERY NODI 


Gl 


% DUE TO THE PARTICULAR INTEGRAL. 
if (fl == 0.) 


return; 
end; 
xc=xc/maxl; 
yo=yc/maxl; 
f1=f1*maxl%2; 


for i=l:nnp; % each node in turn 


DO YOU WANT TO KNOW: 
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xx=xnode (i) -xc; 

yy=ynode (i) -yc; 

psipi(i)=0.25*f1* (xx*2+yy%2) ; 

dpsipi (i) =0.5*f£1* (xx*unx(i)t+yy*uny(i)); 
end; % each node in turn 


% 


% FIND AND STORE THE POTENTIAL GRADIENT AT EVERY NODE OF EVERY 


% ELEMENT DUE TO THE PARTICULAR INTEGRAL. 


for m=l:nel; % each element in turn 
for in=1:3; % each element node in turn 
i=node(m,in); 
xx=xnode (i) -xc; 
yy=ynode (i) -yc; 
dpsipim(m,in)=0.5*f1* (xx*unmx (m, in) +yy*unmy (m, in) ); 
end; % each element node in turn 


fo) 


end; % each element in turn 


ol? 


zr 


% SUBTRACT THE PARTICULAR INTEGRAL CONTRIBUTIONS FROM TH 


PRESCRIBED 


% BOUNDARY CONDITIONS. 
for i=l:nnp; % each node in turn 
if(ibcn(i) == 1) 
dpsi(i)=dpsi(i)-psipi(i); 


end; 


end; % each node in turn 
Q 

oO 

return; 


end Sfunction poisson 


function frmtrx(varargin) 


% 


ol? 


SUBPROGRAM TO FORM THE COEFFICIENT MATRIX AND RIGHT HAND SIDE 


< 


ECTOR, 


oP 


MODIFIED TO SUIT THE BOUNDARY CONDITIONS. 


% 
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global node a maxl dpsi alpha brow arow ibcn dpsipim beta psipi 


ibce store nel nnp 


% 


% DEFINE THE NUMBER OF COLUMNS IN TH 


r 


EXTENDED COEFFICIENT MATRIX A. 


jJmax=nnpt+1; 


% 


% FORM THE COEFFICIENT MATRIX A, AND THE RIGHT HAND SIDE 


< 


ECTOR B*DPSI. 


for i=l:nnp; % take each node in turn as P 


% 


ol? 


INITIALISE CURRENT ROW OF MATRIX A. 


fo) 


for j=l:jmax; % each coefficient in turn 
a(i,j)=0.; 


end; % each coefficient in turn 


ol? 


oe 


INITIALISE ELEMENT CONTRIBUTIONS TO CURRENT ROWS OF A AND B MATRIC 


Gl 
nN 


for m=l:nel; % each element in turn 


for in=1:3; % each element node in turn 
arow(m,in)=0.; 
brow(m,in)=0.; 

end; % each element node in turn 


end; % each element in turn 


% SET UP THE LOOP TO INTEGRATE OVER EACH ELEMENT IN TURN. 


zr 


for m=l:nel; % each element in turn 


% INTEGRATE THE KERNEL PRODUCTS OVER THE CURRENT ELEMENT. 


intker (i,m); 


end; % each element in turn 


oe 


foe) 


EVALUATE THE DIAGONAL COEFFICIENT OF MATRIX A. 


aii=0.; 


for m=l:nel; % each element in turn 
for in=1:3; % each element node in turn 
aii=aii-arow(m,in); 
end; % each element node in turn 
end; % each element in turn 
if(ibcn(i) ~= 1) 
a(i,i)=aii; 
end; 
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%  INITIALISE THE B*DPSI VECTOR COEFFICIENT. 
bdpsi=0.; 
if(ibcn(i) == 1) 
bdpsi=-aii*dpsi (i); 


end; 


% APPLY THE BOUNDARY CONDITIONS TO THE CURRENT ROWS OF A AND B, BY 


% CONSIDERING EACH ELEMENT IN TURN. 


for m=l:nel; % each element in turn 
for in=1:3; % each element node in turn 


j=node (m,in); 


% IF POTENTIAL IS PRESCRIBED OVER THE ELEMENT, INTERCHANGE THE A AND 


& B COEFFICIENTS. 
if (ibce(m) == 1) 
a(i,j)=a(i,j)-brow(m, in) ; 
bdpsi=bdpsi-arow(m, in) * (store(m)-psipi(j)); 


end; 


% IF POTENTIAL GRADIENT IS PRESCRIBED OVER THE ELEMENT (WHICH MAY 
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% INCLUDE A CORNER NODE WITH MIXED BOUNDARY CONDITION), STORE THE A 


% MATRIX COEFFICIENTS, EXCEPT AT A CORNER NODE WHERE PRESCRIBED 


% POTENTIAL HAS BEEN IMPOSED. 


if(ibce(m) == 2) 
bdpsi=bdpsit+brow(m, in) * (store (m) *maxl-dpsipim(m,in)); 


if (iben(j) ~= 1) 


a(i,j)=a(i,j)+arow(m, in); 
end; 
if(ibcn(j) == 1) 
bdpsi=bdpsi-arow(m,in)*dpsi(j); 
end; 


end; 


% IF BOUNDARY CONDITION OVER THE ELEMENT IS MIXED (WHICH MAY 


% INCLUDE A CORNER NODE WITH PRESCRIBED POTENTIAL GRADIENT), 


% MODIFY THE A MATRIX COEFFICIENTS, EXCEPT AT A CORNER NODE 


% WHERE PRESCRIBED POTENTIAL HAS BEEN IMPOSED. 


if(ibce(m) == 3) 


dpsistore=alpha (m) *psipi(j)+beta(m) ; 


dpsistore=dpsistore*maxl-dpsipim(m, in); 


bdpsi=bdpsi+brow(m, in) *dpsistore; 

if(iben(j) ~= 1) 
a(i,j)=a(i,j)+arow(m, in) -brow(m, in) *alpha (m) *maxl; 

end; 

if(iben(j) == 1) 
bdpsi=bdpsi-arow(m, in) *dpsi (4); 
bdpsi=bdpsi+tbrow(m, in) *alpha(m) *dpsi (j) *maxl; 

end; 


end; 


oe 


° 


end; % each element node in turn 


end; % each element in turn 


% STORE THE B*DPSI COEFFICIENT AS AN EXTENSION OF MATRIX A. 


a(i,jmax)=bdpsi; 


end; % take each node in turn as P 


foe) 


return; 


end %function frmtrx 
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function shape (varargin) 


% 


oP 


SUBPROGRAM TO EVALUATE AND STORE VALUES OF THE SHAPE FUNCTIONS AND 


% THEIR DERIVATIVES, AT THE GAUSS POINTS AND NODES. 


% 


global sd sdl sfl egl ngauss sf zg wgl wg 


% 


% STORE APPROPRIATE COORDINATES AND WEIGHT FACTORS FOR NORMAL GAUSSIAN 


% QUADRATURE IN ARRAYS XG AND CG, ALSO THOSE FOR LOGARITHMIC FUNCTION 


% INTEGRATION IN XGL AND CGL. 
ngauss=8; 

zg (1)=-0.9602898564; 
zg (2)=-0.7966664774; 
zg (3) =-0.5255324099; 
zg (4) =-0.1834346424; 
zg (5)=-zg (4); 

zg (6)=-zg (3); 
ZQ(7)=-zg(2); 

zg (8)=-zg(1); 

wg (1) =0.1012285362; 
wg (2) =0.2223810344; 
wg (3) =0.3137066458; 
wg (4) =0.3626837833; 
wg (5) =wg (4); 

wg (6) =wg (3); 

wg (7) =wg (2); 

wg (8) =wg (1); 

egl1 (1) =0.013320244; 
egl (2) =0.079750429; 
egl1 (3) =0.197871029; 
egl (4) =0.354153994; 
egl (5) =0.529458575; 
egl1 (6) =0.701814530; 
egl (7) =0.849379320; 
egl1 (8) =0.953326450; 
wgl(1)=0.164416605; 
wgl (2)=0.237525610; 
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wgl (3) =0.226841984; 
wgl (4) =0.175754079; 
wgl (5)=0.112924030; 
wgl (6)=0.057872211; 
wgl (7)=0.020979074; 
wgl (8)=0.003686407; 


% NORMAL GAUSSIAN QUADRATURE. 


for igauss=l:ngauss; % each gauss point in turn 


zeta=zg(igauss) ; 


sf(1,igauss)=0.5*zeta* (zeta-1.); 


sf(2,igauss)=1.-zeta%*2; 


sf(3,igauss)=0.5*zeta* (zetat+tl.); 


sd(1,igauss)=zeta-0.5; 


sd(2,igauss)=-2.*zeta; 


sd(3,igauss)=zetat+0.5; 


end; % each gauss point in turn 


% 


oe 


r 


FOUR CASES OF LOGARITHMIC GAUSSIAN QUADRATURE TO CONSIDER. 


fo) 


IC=1 - INTEGRATION OVER WHOLE ELEMENT FROM FIRST TO THIRD NODE. 


Gl 
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foe) 
H 
Q 
ll 
No 
| 
H 
Z 
a 


EGRATION OVER HALF ELEMENT FROM SECOND TO THIRD NODE. 


Gl 


ol? 
H 
Q 
ll 
Ww 
| 
ij 
Zz 
a 


EGRATION OVER HALF ELEM 


= 


INT FROM SECOND TO FIRST NODE. 


Gl 


ol? 
H 
Q 
ll 
wd 
| 
H 
Z 
a 


EGRATION OVER WHOLE ELEMENT FROM THIRD TO FIRST NODE. 


Gl 


% 


for ic=1:4; % each case in turn 
for igauss=l:ngauss; % each gauss point in turn 
eta=egl (igauss) ; 
if(ic == 1) 
zeta=2.*eta-1.; 
end; 
if(ic == 2) 
zeta=eta; 
end; 
if(ic == 3) 
zeta=—eta; 
end; 
if(ic == 4) 
zeta=1.-2.*eta; 
end; 


sfl(ic,1,igauss)=0.5*zeta* (zeta-1.); 


sfl(ic,2,igauss)=1.-zeta%*2; 


sfl(ic,3,igauss)=0.5*zeta* (zetatl.); 
sdl(ic,1,igauss)=zeta-0.5; 
sdl(ic,2,igauss)=-2.*zeta; 
sdl(ic,3,igauss)=zetat+0.5; 

end; % each gauss point in turn 


end; % each case in turn 


% 


% SHAPE FUNCTION DERIVATIVES AT THE NODES, STORED AS THOUGH THEY 


% ARE FOR GAUSS POINTS NUMBERED 11, 12 AND 13. 


for igauss=11:13; % each element node in turn 
if(igauss == 11) 
zeta=-1.; 
end; 
if(igauss == 12) 
zeta=0.; 
end; 
if(igauss == 13) 
zeta=1.; 


end; 
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sd(1,igauss) =zeta-0.5; 
sd(2,igauss)=-2.*zeta; 
sd(3,igauss) =zetat+0.5; 
end; % each element node in turn 
return; 


end %Sfunction shape 


function intker (i,m) 


% 


oe 


SUBPROGRAM TO INTEGRATE THE KERNEL PRODUCTS FOR A PARTICULAR SOURCI 


Gl 


fo) 


POINT P (INDICATED BY NODE NUMBER I) OVER A PARTICULAR ELEMENT 


oe 


(INDICATED BY ARGUMENT M) BY GAUSSIAN QUADRATURE. 
global node jacob wgl brow sfl ngauss wg sf arow ynode xnode 


% COORDINATES OF POINT P. 


xp=xnode (i); 


yp=ynode (i); 


% 


r 


% SET UP TH 


r 


ELEMENT NODE LOOP. 


for in=1:3; % each element node in turn 


j=node (m,in); 


foe) 


oP 


IF P IS NOT THE CURRENT ELEMENT NODE, USE NORMAL GAUSSIAN QUADRATURE. 


if(i ~= 3) 


fo) 


for igauss=l:ngauss; % each gauss point in turn 


ol? 


% EVALUATE JACOBIAN AND UNIT NORMAL VECTOR COMPONENTS, ALSO THE KERNELS 
% AT THE PARTICULAR GAUSS POINT FOR NORMAL QUADRATURE OVER THE WHOLE 
% ELEMENT 

it=1; 

ic=1; 


jacobi(m,igauss,it,ic); 


[ak,bk]=kernel (xp, yp,m, igauss) ; 


foe) 
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oe 


THE INTEGRALS. 


ACCUMULAT 


ae 


sfn=sf(in,igauss); 

arow(m,in)=arow(m,in)+wg(igauss) *ak*sfn*jacob; 

brow (m, in) =brow(m, in) twg (igauss) *bk*sfn*jacob; 
end; % each gauss point in turn 


end; 


ol? 


Gl 


foe) 


IF P IS THE CURRENT ELEMENT NODE, SOME LOGARITHMIC QUADRATUR 


fo) 


IS REQUIRED. 


Lee == a) 


foe) 


r 


oP 


P AT THE FIRST NODE OF THE ELEMENT. 


if(in == 1) 


oP 


oe 
4 


ERM INVOLVING NORMAL QUADRATURE. 


fo) 


for igauss=l:ngauss; % each gauss point in turn 
it=1; 
ic=1; 
jacobi(m,igauss,it,ic); 
bk2=kern2 (m, in, igauss) ; 
sfn=sf(in,igauss); 
brow (m, in) =brow(m, in) twg (igauss) *bk2*sfn*jacob; 


end; % each gauss point in turn 


oP 


% TERM INVOLVING LOGARITHMIC QUADRATURE. 

for igauss=l:ngauss; % each gauss point in turn 
it=2; 
re=1; 
jacobi(m,igauss,it,ic); 
sfn=sfl(ic,in,igauss) ; 
dzde=2.; 
brow (m, in) =brow(m, in) twgl (igauss) *sfn*jacob*dzde; 

end; % each gauss point in turn 

end; 


foe) 


oe 


P AT THE SECOND NODE OF THE ELEMENT. 


oP 


Gl 


ol? 
Hq 


ERMS INVOLVING NORMAL QUADRATURE. 
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for igauss=l:ngauss; % each gauss point in turn 
it=1; 
ic=1; 
jacobi(m,igauss,it,ic); 
bk2=kern2 (m, in, igauss) ; 
sfn=sf(in,igauss); 
brow (m, in) =brow(m, in) twg (igauss) *bk2*sfn*jacob; 


end; % each gauss point in turn 


% TERMS INVOLVING LOGARITHMIC QUADRATURE. 


for igauss=l:ngauss; % each gauss point in turn 

it=2; 

ic=2; 

jacobi(m,igauss,it,ic); 

sfn=sfl(ic,in,igauss) ; 

dzde=1.; 

brow (m, in) =brow(m, in) twgl (igauss) *sfn*jacob*dzde; 

ic=3; 

jacobi(m,igauss,it,ic); 

sfn=sfl(ic,in,igauss) ; 

dzde=1.; 

brow (m, in) =brow(m, in) twgl (igauss) *sfn*jacob*dzde; 
end; % each gauss point in turn 


end; 


% P AT THE THIRD NODE OF THE ELEMENT. 


r 


1f(in == 3) 


% TERM INVOLVING NORMAL QUADRATURE. 


for igauss=l:ngauss; % each gauss point in turn 
it=1; 
ic=1; 
jacobi(m,igauss,it,ic); 
bk2=kern2 (m, in, igauss) ; 
sfn=sf(in,igauss); 
brow (m, in) =brow(m, in) twg (igauss) *bk2*sfn*jacob; 


end; % each gauss point in turn 


Gl 


% TERM INVOLVING LOGARITHMIC QUADRATURE. 


for igauss=l:ngauss; % each gauss point in turn 
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LE=27 
ic=4; 
jacobi(m,igauss,it,ic); 
sfn=sfl(ic,in,igauss) ; 
dzde=2.; 
brow (m, in) =brow(m, in) twgl (igauss) *sfn*jacob*dzde; 
end; % each gauss point in turn 
end; 
end; 


fo) 


end; % each element node in turn 
Qo 

fe} 

return; 


end S$function intker 


function jacobi(m, igauss,it,ic) 


% 


foe) 
x 
x 


SUBPROGRAM TO EVALUATE THE JACOBIAN AND THE COMPONENTS OF THE UNIT 


7] 


% NORMAL VECTOR AT A PARTICULAR GAUSS POINT. 


% M INDICATES THE ELEM 


Fs 


(INT NUMBER. 


6 


% IGAUSS INDICATES THE GAUSS POINT N 


Gq 
S 
we 
ira 
ve) 


% IT INDICATES THE TYPE OF QUADRATURE. 


|| 


% IT=1 - NORMAL GAUSSIAN QUADRATURE. 
% IT=2 - LOGARITHMIC GAUSSIAN QUADRATURE. 


% IC INDICATES THE CASE NUMBER FOR LOGARITHMIC GAUSSIAN QUADRATUR 


{eA 


% AS DEFINED IN SUBROUTINE SHAPE. 


ol? 


global jacob ungy ungx node ynode xnode sdl sd 


% 


% CALCULATE THE DERIVATIVES OF THE GLOBAL COORDINATES WITH RESPECT TO 


r 


% THE LOCAL INTRINSIC COORDINATE. 
dx=0.; 
dy=0.; 


for in=1:3; % each element node in turn 
if(it == 1) 
sfnd=sd(in,igauss) ; 


end; 


sfnd=sdl (ic,in,igauss) ; 


end; 
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jJ=node(m,in); 
dx=dx+sfnd*xnode (4) ; 
dy=dyt+sfnd* ynode (4) ; 


[o) 


end; % each element node in turn 


% 


% COMPONENTS OF THE LOCAL OUTWARD NORMAL VECTOR AT THE GAUSS POINT. 


ungx=dy; 
ungy=-dx; 


% 


% JACOBIAN OF THE COORDINATE TRANSFORMATION. 


jacob=sqrt (ungx*2+ungy*2) ; 


% 


% SCALE THE VECTOR COMPONENTS TO GIVE THE UNIT NORMAL VECTOR. 


ungx=ungx/jacob; 
ungy=ungy/jacob; 
return; 


end Sfunction jacobi 


function [ak,bk]=kernel (xp, yp,m,igauss) 


oP 


% SUBPROGRAM TO EVALUATE THE KERNELS WHEN P IS NOT THE CURRENT 


% ELEMENT NODE. 


% XP, YP INDICATE THE GLOBAL COORDINATES OF POINT P. 


% M INDICATES THE ELEMENT NUMBER. 


% IGAUSS INDICATES T 


a 
Zz 
G 
S 
QU 
zs) 
(e) 
3) 
HW 
BE 


E GAUSS POINT, Q. 


oe 


global ungy ungx node ynode xnode sf; 


% 


% COORDINATES OF GAUSS POINT Q. 

xq=0.; 

yq=0.; 

for in=1:3; % each element node in turn 
sfn=sf(in,igauss); 
j=node(m,in); 
xg=xqtsfn*xnode (4) ; 
yq=yqtsfn*ynode (j); 


fo) 


end; % each element node in turn 
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% 


% COMPONENTS AND MAGNITUDE OF THE RADIUS VECTOR FROM P TO Q. 


r 


YX=Xq-Xp; 
ry=yq-yP; 
rsq=rx*2t+ry%*2; 
r=sqrt (rsq); 


% 


% EVALUATE THE KERNELS. 


ak=- (rx*ungxtry*ungy) /rsq; 
bk=log(1./r); 
return; 


end %$function kernel 


function bk2=kern2 (m, in, igauss) 


UBPROGRAM TO EVALUATE THE NON-SINGU 


AR LOGARITHMIC TERM IN TH 


Gl 


ECOND KERNEL WHEN P IS THE CURRENT ELEMENT NODE. 


r 


N INDICATES THE NUMBER OF THE ELEMENT NODE FORMING P. 


S 
S 
% M INDICATES THE ELEMENT NUMBER. 
I 
I 


GAUSS INDICATES THE GAUSS POINT NUMBER. 


global ynode xnode zg node 


% 


% ELEMENT NODE NUMBERS. 


il=node(m,1); 
i2=node(m, 2); 
i3=node (m, 3); 


% 


% EVALUATE THE INTRINSIC COORDINATE. 


zeta=zg(igauss) ; 


% 


% P AT THE FIRST NODE OF THE ELEMENT. 


r 


if(in == 1) 
xcomp=(zeta-2.) *xnode(il)+2.* (1.-zeta) *xnode (i2) +zeta*xnode (i3) ; 
ycomp=(zeta-2.) *ynode(il)+2.%* (1.-zeta) *ynode (i2)+zeta*ynode (i3); 
rfn=sqrt (xcomp*2+ycomp’2) ; 


end; 
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% 


% P AT THE SECOND NODE OF THE ELEMENT. 


I 


if(in == 2) 


xcomp=—0.5* (zeta-1.) *xnode (il) +zeta*xnode (i2)-0.5* (zetat1.) *xnode(i3); 


ycomp=-0.5* (zeta-1.) *ynode (il)+zeta*ynode (i2)-0.5* (zetat+1.) *ynode (i3); 
rfn=sqrt (xcomp*2+ycomp%’2) ; 


end; 


=, 


% P AT THE THIRD NODE OF THE ELEMENT. 


if(in == 3) 
xcomp=—zeta*xnode (i1)+2.* (1.+zeta) *xnode (i2)-(zetat2.) *xnode(i3); 
ycomp=-zeta*ynode (i1)+2.* (1.+zeta) *ynode (i2)-(zetat2.) *ynode(i3); 


rfin=sqrt (xcomp*2+ycomp%’2) ; 
end; 


% 


% EVALUATE THE KERNEL TERM. 


bk2=log(1./rfn); 
return; 


end Sfunction kern2 


function output (varargin) 


% 


% SUBPROGRAM TO WRITE OUT TH 


x 
Gl 


NODAL POINT VALUES OF POTENTIAL AND 


% POTENTIAL GRADIENT, AND COMPUTE POTENTIAL FLOWS ACROSS TH 


ie 


% BOUNDARY SEGMENTS. 


% 


global nsegtot flowseg node maxl jacob wg sf ngauss beta psit alpha 
ibce store dpsit isegelem nel uny unx dpsipi psipi fl dpsi psi 
nnp betan alphan ibcn fid6 


% 


% ARRANGE FOR PSI AND DPSI TO CONTAIN THE POTENTIALS AND POTENTIAL 


E 


% GRADII 


BA 


NTS, RESPECTIVELY. 


for i=l:nnp; % each node in turn 
if(ibcn(i) == 1) 
temp=psi (i); 
psi(i)=dpsi (i); 
dpsi(i)=temp; 
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end; 
if (iben (i) 
psitot=psi(i)+psipi (i); 
dpsi(i)=(alphan(i)*psit 
end; 
end; % each node in turn 


6 


ADD CONTRI! 


BUTIONS OF TH 


fprintf (fid6é, ['\n', 'NODAL PO 
pi Naty Arty. 


I 

UNY', '\n']); 

for i=l:nnp; % each node in 

psit(i)=psi(i); 

dpsit (i)=dpsi(i); 

if (fl ~= 0.) 
psit(i)=psit (i) +psipi (i 


Appendix D: Matlab Version of Quadratic Boundary 
Element Program for Potential Problems 


ott+betan(i)) *maxl-dpsipi (i); 


PARTICULAR INT! 


EGRAL. 


INT POTENTIALS AND POT 


ENTIAL GRADTI] 


ENTS! 


PSI DPSI UNX' 


turn 


)3 


dpsit (i)=dpsit(i)+dpsip 


end; 


= 
py 


R 


G 


EMOVE 


THE 


G 


LENGTH SCALI 


r 


dpsit (i) =dpsit (i) /maxl; 


Aa) 


= 
ad 


= 


FACTOR FROM THI ENT VALUE 


5 


GRADTII 


r 


OUTPUT THE NODAL VALU 


ES 


AND TH 


Gl 


UNIT NORMAL COMP 
fprintf (fid6, ['S6i','S15.6 


i,psit(i),dpsit(i),un 


5 
io) 


end; each node in turn 


% 


% 


COMPUT 


= 


THE 


POT 


ENTIAL FL 


flowin=0.; 


flowout=0.; 


for iseg=l:nsegtot; % each 
flowseg (iseg)=0.; 

end; % each segment in turn 

for m=l:nel; % each element 


iseg=isegelem(m) ; 
o 
fe} 
fe) 


6 


APPLY GAUSSIAN QUADRATUR 


flowelem=0.; 
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OF POT 


ENTIAL, POTENTIAL 


GRADII 


ENT, 


ON! 
e','315.6e', '$13.4e','313.4e','\n'], 


ENTS. 


x(i),uny(i)); 


y 
Bi 


OWS ACROSS TH 


BOUNDARY 5S 


EGM 


ENTS. 


segment in turn 


in turn 


1 | 
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for in=1:3; % each element node in turn 
j=node (m,in); 


% 


as 


% FIND THE POTENTIAL GRADIENT AT TH 


NODE. 


if(ibce(m) == 1) 
dpsistore=dpsit (4); 
end; 
if(ibce(m) == 2) 
dpsistore=store(m) ; 
end; 
if(ibce(m) == 3) 
dpsistore=alpha (m) *psit (j)+beta(m) ; 
end; 
for igauss=1l:ngauss; % each gauss point in turn 
sfn=sf(in,igauss); 
it=1; 
ic=1; 
jacobi(m,igauss,it,ic); 
flowelem=flowelemtwg (igauss) *sfn*jacob*dpsistore*maxl; 
end; % each gauss point in turn 


end; % each element node in turn 


r 


% ACCUMULATE THE FLOW ACROSS THE SEGMENT, AND THE TOTAL FLOWS IN 


% AND OUT OF TH 


1B 


DOMAIN. 


flowseg (iseg) =flowseg (iseg) +flowelem; 


if (flowelem > 0.) 
flowin=flowintflowelem; 

end; 

if (flowelem < 0.) 
flowout=flowout-flowelem; 

end; 


° 


end; % each element in turn 


% 


% OUTPUT THE POTENTIAL FLOW RESULTS. 
fprintf (fid6é, ['\n', 


E 


"POTENTIAL FLOWS INTO DOMAIN ACROSS BOUNDARY SEGMENTS','\n','\n', 


' SEGMENT FLOW', '\n']); 


for iseg=1l:nsegtot; 
fprintf (fid6é, ['S5i','%16.6e', '\n'],iseg, flowseg(iseg) ); 
end; 
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fprintf (fide, ['\n', 'TOTAL POTENTIAL FLOW INTO DOMAIN =','%15.6e', 


"\n', '\n', 'TOTAL POTENTIAL FLOW OUT OF DOMAIN =','%15.6e', 


"\n'],flowin, flowout) ; 
return; 


end function output 


function internal (varargin) 


% 


% SUBPROGRAM TO COMPUTE AND OUTPUT THE POTENTIALS AT SELECTED 


% INTERNAL POINTS. 
global fl yc xc node psi jacob wg sf ngauss dpsipim maxl beta psit 
alpha ibce store dpsi nel fid5 fid6 


% 


% INPUT NUMBER OF INTERNAL POINTS. 
line=fgetl (fid5) ; 


nint=str2num (line) ; 

if(nint == 0) 
return; 

end; 


fprintf (fide, ['\n', "POTENTIALS AT INTERNAL POINTS','\n','\n', 


' PSI Xx peal rs 


% 


%& INPUT THE INTERNAL POINT COORDINATES. 


° 


for iint=l:nint; % each internal point in turn 


line=fgetl (fid5) ; 


vec=str2num(line) ; 
xint=vec(1); yint=vec (2); 
xp=xint/maxl; 


yp=yint/maxl; 


ol? 


INTEGRATE ROUND THE BOUNDARY. 


r 


sum=0.; 


for m=l:nel; % each element in turn 
for in=1:3; % each element node in turn 


j=node(m,in); 


oP 
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FIND THE POTENTIAL GRADIENT AT THE NODE, EITHER AS COMPUTED 


foe) 
x 


NTIAL WAS PRESCRIBED, OR FROM THE PRESCRIBED GRADIENT 


oe 
{Ea 


IF POT! 


D BOUNDARY CONDITIONS. 


ol? 
Gl 


OR MIX! 
if(ibce(m) == 1) 
dpsistore=dpsi (4); 
end; 
if(ibce(m) == 2) 
dpsistore=store(m) *maxl-dpsipim(m,in); 
end; 
if(ibce(m) == 3) 
dpsistore=(alpha(m) *psit(j)+beta(m) ) *maxl-dpsipim(m, in); 


end; 


foe) 


Gl 


% APPLY GAUSSIAN QUADRATURE. 
for igauss=l:ngauss; % each gauss point in turn 
LES 
ic=1; 
jacobi(m,igauss,it,ic); 
[ak,bk]=kernel (xp, yp,m, igauss) ; 
sfn=sf(in,igauss); 
sum=sumtwg (igauss) *sfn*jacob* (-ak*psi (j) +tbk*dpsistore) ; 
end; % each gauss point in turn 
end; % each element node in turn 
end; % each element in turn 
psiip=sum*0.5/pi; 
psiipt=psiip; 


oP 


% ADD THE PARTICULAR INTEGRAL FOR A POISSON TYPE PROBLEM. 
if (fl ~= 0.) 
XX=XP-XC; 
YY=YP-YCr 
psiipt=psiiptt+0.25*f1* (xx*2+yy%2) ; 
end; 
% OUTPUT THE POTENTIAL AT THE INTERNAL POINT. 
fprintf (fid6é, ['\n','%S14.6e',' ', '$12.4e','S12.4e'], 


psiipt,xint,yint); 
end; % each internal point in turn 


a 
fo} 
return; 
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end function internal 


function [x,iflag]=elimin(a,neqn) 


% 


fo) 


SUBROUTINE FOR SOLVING SIMULTANEOUS LINEAR EQUATIONS BY GAUSSIAN 


r 


% ELIMINATION WITH PARTIAL PIVOTING. 


fo) 


INITIALIZ! 


Gl 


ILL-CONDITIONING FLAG. 
iflag=0; 
for i=l:neqn; x(i)=0.; end; 


% 


% SCALE EACH EQUATION TO HAVE A MAXIMUM COEFFICIENT MAGNITUDE OF UNITY. 


= 


jJmax=negqnt1; 
for i=l:neqn; % each equation in turn 
amax=0.; 
for j=l:neqn; % search for maximum 
absa=abs(a(i,j)); 
if(absa > amax) 
amax=absa; 
end; 


end; % search for maximum 


fo) 


fo) 


for j=l:jmax; % scale coefficients 
a(i,j)=a(i,j) /amax; 
end; % scale coefficients 


° 


end; % each equation in turn 


% 


% COMMENCE ELIMINATION PROCESS. 


fo) 


for k=l:neqn-1; % eliminate each variable in turn 


% SEARCH LEADING COLUMN OF THE COEFFICIENT MATRIX FROM THE DIAGONAL 


% DOWNWARDS FOR THE LARGEST VALUE. 


r 


imax=k; 
for i=k+l:neqn; % search for largest value 
if(abs(a(i,k)) > abs(a(imax,k))) 
imax=i; 


end; 
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end; % search for largest value 


oe 


IF NECESSARY, INTERCHANGE EQUATIONS TO MAKE THE LARGEST COEFFICIENT 


oe 


BECOME THE PIVOTAL COEFFICIENT. 


foe) 


if (imax ~= k) 
for j=k:jmax; % interchange coefficients 
atemp=a(k,j); 
a(k,j)=a(imax, J); 
a (imax, j)=atemp; 
end; % interchange coefficients 


end; 


ELIMINATE X(K) FROM EQUATIONS (K+1) TO NEQN, FIRST TESTING FOR 


oe 


COEFFICIENT (ASSOCIATED WITH A SINGULAR 


EXCESSIVELY SMALL PIVOTA 


oe 


% OR VERY ILL-CONDITIONED MATRIX). 


if (abs (a(k,k)) < 1.0e-5) 
iflag=1; 
return; 
end; 
for i=k+l:neqn; % each of remaining equations 
fact=a(i,k)/a(k,k); 
for j=k:jmax; % modify coefficients 
a(i,j)=a(i,j)-fact*a(k,4); 
end; % modify coefficient 
end; % each of remaining equations 


end; % eliminate each variable in turn 


% 


% SOLVE THE EQUATIONS BY BACK SUBSTITUTION, FIRST TESTING 


% FOR AN EXCESSIVELY SMALL LAST DIAGONAL COEFFICIENT. 


if (abs (a(neqn,negn)) < 1.0e-5) 
iflag=1; 
return; 
end; 
x (neqn) =a (neqn, jmax) /a(neqn,neqn) ; 
for i=negqn-1:-1:1; % then each unknown in turn backwards 
sum=a (i, jJmax) ; 
for j=i+l:neqn; % sum products 


sum=sum-a (i,j) *x(4); 
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fo) 


end; % sum products 
x(i)=sum/a(i,i); 
end; % then each unknown in turn backwards 


return; 


end function elimin 


The equivalent of the Fortran SHAREDDDATA2PQ is shareddata2pgq, stored as the file shareddata2pq.m, 


is as follows. 


6%6%--- module shareddata2pq; 


% module STORING SHARED DATA. 


global xeend; if isempty(xeend), xeend=zeros(1,510); end; 


global yeend; if isempty(yeend), yeend=zeros(1,510); end; 


global xnode; if isempty(xnode), xnode=zeros(1,1000); end; 


p 
p 
global ynode; if isempty(ynode), ynode=zeros(1,1000); end; 
global xsend; if isempty(xsend), xsend=zeros(1,500); end; 


global ysend; if isempty(ysend), ysend=zeros(1,500); end; 


global unx; if isempty(unx), unx=zeros(1,1000); end; 
global uny; if isempty(uny), uny=zeros(1,1000); end; 
global unmx; if isempty(unmx), unmx=zeros(500,3); end; 


global unmy; if isempty(unmy), unmy=zeros(500,3); end; 


global dpsipim; if isempty(dpsipim), dpsipim=zeros(500,3); end; 


global f1; if isempty(f1), f£1=0; end; 


global xc; if isempty(xc), xc=0; end; 


global yc; if isempty(yc), yc=0; end; 


global psi; if isempty(psi), psi=zeros(1,1000); end; 
global dpsi; if isempty(dpsi), dpsi=zeros(1,1000); end; 


global alpha; if isempty(alpha), alpha=zeros(1,500); end; 
global beta; if isempty(beta), beta=zeros(1,500); end; 

global alphan; if isempty(alphan), alphan=zeros(1,1000); end; 
global betan; if isempty(betan), betan=zeros(1,1000); end; 
global psiseg; if isempty(psiseg), psiseg=zeros(1,500); end; 


global dpsiseg; if isempty(dpsiseg), dpsiseg=zeros(1,500); end; 


global alphaseg; if isempty(alphaseg), alphaseg=zeros(1,500); end; 


global betaseg; if isempty(betaseg), betaseg=zeros(1,500); end; 


global store; if isempty(store), store=zeros(1,500); end; 


global psipi; if isempty(psipi), psipi=zeros(1,1000); end; 


global dpsipi; if isempty(dpsipi), dpsipi=zeros(1,1000); end; 
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global psit; if isempty(psit), psit=zeros(1,1000); end; 
global dpsit; if isempty(dpsit), dpsit=zeros(1,1000); end; 
global flowseg; if isempty(flowseg), flowseg=zeros(1,500); end; 
global angstore; if isempty(angstore), angstore=zeros(1,510); end; 
global a; if isempty(a), a=zeros(1000,1001); end; 

global arow; if isempty(arow), arow=zeros(500,3); end; 
global brow; if isempty(brow), brow=zeros(500,3); end; 
global maxl; if isempty(maxl), maxl=0; end; 

global zg; if isempty(zg), zg=zeros(1,8); end; 

global wg; if isempty(wg), wg=zeros(1,8); end; 

global egl; if isempty(egl), egl=zeros(1,8); end; 

global wgl; if isempty(wgl), wgl=zeros(1,8); end; 

global jacob; if isempty(jacob), jacob=0; end; 

global ungx; if isempty(ungx), ungx=0; end; 

global ungy; if isempty(ungy), ungy=0; end; 

global sf; if isempty(sf), sf=zeros(3,8); end; 

global sd; if isempty(sd), sd=zeros(3,13); end; 

global sfl; if isempty(sfl), sfl=zeros(4,3,8); end; 

global sdl; if isempty(sdl), sdl=zeros(4,3,8); end; 

global nel; if isempty(nel), nel=0; end; 

global nnp; if isempty(nnp), nnp=0; end; 

global maxnel; if isempty(maxnel), maxnel=0; end; 

global maxnnp; if isempty(maxnnp), maxnnp=0; end; 

global maxnb; if isempty(maxnb), maxnb=0; end; 

global neend; if isempty(neend), neend=0; end; 

global ngauss; if isempty(ngauss), ngauss=0; end; 

global node; if isempty(node), node=zeros(500,3); end; 
global ml; if isempty(ml1), ml=zeros(1,500); end; 

global m3; if isempty(m3), m3=zeros(1,500); end; 

global nbound; if isempty(nbound), nbound=0; end; 

global nsegtot; if isempty(nsegtot), nsegtot=0; end; 
global nelb; if isempty(nelb), nelb=zeros(1,10); end; 
global nsegb; if isempty(nsegb), nsegb=zeros(1,10); end; 
global nbcp; if isempty(nbcp), nbcp=0; end; 

global nbcd; if isempty(nbcd), nbcd=0; end; 

global nbcm; if isempty(nbcm), nbcm=0; end; 

global nbct; if isempty(nbct), nbct=0; end; 

global ibce; if isempty(ibce), ibce=zeros(1,500); end; 
global ibcn; if isempty(ibcn), ibcn=zeros(1,1000); end; 
global isegbc; if isempty(isegbc), isegbc=zeros(1,500); end; 


DoWniGleFtted SS5URR GI bddkodaPBBIRY (FSegend) , isegend=zeros (1,500); endi 
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global isegelem; if isempty(isegelem), isegelem=zeros (1,500); end; 


global mfirst; if isempty(mfirst), mfirst=zeros(1,500); end; 


global mlast; if isempty(mlast), mlast=zeros(1,500); end; 


Finally, the alternative form of function “internal”, which is required to carry out area integration over 


a rectangular solution domain (described in Section 4.3), is as follows. 


function internal (varargin) 


% 


eo 
io) 


n 


UBPROGRAM TO FIND AND OUTPUT TH 


a5 


INTEGRAL OF POTENTIAL OVER THE 


% AREA OF THE SOLUTION DOMAIN. 


% THIS VERSION IS DESIGNED FOR A RECTANGULAR DOMAIN. 


global nbcp isegbc psiseg xsend ysend maxl psi dpsi xc yc fl nel 
node ibce store dpsipim alpha beta ngauss sf wg jacob fid5 fid6é 
global psival; if isempty(psival), psival=zeros(1,300); end; 


global yintgl; if isempty(yintgl), yintgl=zeros(1,300); end; 


% 


oe 


INPUT THE NUMBERS OF SAMPLING POINTS INSID 


r 


THE DOMAIN IN TH 


ea] 
Pad 


oe 


AND Y DIRECTIONS, WHICH SHOULD BOTH BE ODD. 


line=fgetl (fid5) ; 


vec=str2num(line); 


if(rem(nx,2) == 0) 


fprintf (fide, ['\n', 'WARNING - NX =','S4i', 


' NOT ODD - INCREASE BY 1','\n'],nx); 


nx=nxt+1; 
end; 
if(rem(ny,2) == 0) 
fprintf (fide, ['\n', 'WARNING - NY =','S4i', 


" NOT ODD - INCREASE BY 1','\n'],ny); 


ny=nytl1; 
end; 
if(nx+2 > 300 || ny+2 > 300) 
fprintf (fid6é, ['\n', 'NX =', 'S6i',' VON St 7 56a" MS 


"ARRAY DIMENSIONS EXCEEDED',' IN INTEGRATION OVER DOMAIN', 
"\n'],nx,ny); 
error('array dimension error in internal'); 


end; 
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% 


% 


FIND PR 


ESCRIB 


for ibcp=l:nbcp; % each segment in 


1) 


if (isegbc (ibcp) 
psibot=psiseg(ibcp) ; 


end; 


if (isegbc (ibcp) 2) 


psiright=psiseg(ibcp) ; 


end; 


if (isegbc (ibcp) 3) 


psitop=psiseg(ibcp); 


end; 


if (isegbc (ibcp) 4) 


psileft=psiseg(ibcp) ; 
end; 


6 


end each segment in turn 


% 


6 


ybot=ysend (1); 
xright=xsend (2); 
ytop=ysend (3); 
xleft=xsend (4); 


% 


hx=(xright-xleft) / (nx+1); 
hy=(ytop-ybot) / (ny+1); 

ixmax=nx+2; 

iymax=ny+2; 

yintgl (1)=psileft* (ytop-ybot) ; 
yintgl (ixmax) =psiright* (ytop-ybot) ; 
for ix=2:ixmax-1; % each x position 
psival (1)=psibot; 

psival (iymax)=psitop; 


xpoint=xleftthx* (ix-1); 


ol? 


INNI 


ER LOOP FOR INTEGRATION IN Y 


foe) 
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ED BOUNDARY VALUES OF POTENTIAL. 


turn 


FIND COORDINATES OF DOMAIN SIDES. 


OUTER LOOP FOR INTEGRATION IN X DIRECTION. 


in turn 


DIR 


FECTION. 


FIRST FIND POTENTIALS AT TH 


r 


INT 


ERNAL POINTS. 


% 


for iy=2:iymax-1; 
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ypoint=ybotthy* (iy-1); 
xp=xpoint/maxl; 


yp=ypoint/max1; 


foe) 
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& INTEGRATE ROUND THE BOUNDARY. 
sum=0.; 
for m=l:nel; % each element in turn 


% 


for in=1:3; 


j=node(m,in); 


S$ FIND THE POTENTIAL GRADIENT AT TH 
% IF POTENTIAL WAS PRESCRIBED, OR F 
% OR MIXED BOUNDARY CONDITIONS. 
if(ibce(m) == 1) 
dpsistore=dpsi (4); 
end; 


if (ibce (m) 


each element node in turn 


KITH 


ER AS COMPUT! 


PR 


ESCRIB 


ED GRADII 


dpsistore=store (m) *maxl-dpsipim(m, in); 


end; 


if (ibce (m) 


dpsistore=(alpha(m) *psit(j)+beta(m) ) *maxl-dpsipim(m, in); 


end; 


ol? 


% 


Gl 


for igauss=l1:ngauss; 
Le=1; 
ic=1; 


jacobi(m,igauss,it 


APPLY GAUSSIAN QUADRATURE. 


% 


each 


,ic); 


gauss point in turn 


[ak,bk]=kernel (xp, yp,m, igauss) ; 


sfn=sf(in,igauss); 


sum=sumtwg (igauss) *sfn*jacob* (-ak*psi (j)+bk*dpsistore) ; 


% 


end 


ach 


ach element in tu 


psiip=sum*0.5/pi; 


En. 


each gauss point in turn 


lement node in turn 


psiipt=psiip; 
% ADD THE PARTICULAR INTEGRAL FOR A POISSON TYPE PROBLEM. 
if (fl ~= 0.) 
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XX=XP-XC; 

yy=yp-yc; 

psiipt=psiiptt+0.25*f1* (xx*2+yy%*2) ; 
end; 


psival (iy)=psiipt; 


end; % each y position in turn 


oP 


foe) 


INTEGRATE POTENTIAL IN Y DIRECTION. 


sum=0.; 


for iy=2:2:iymax-1; % alternate points in the y direction 


sum=sumt+tpsival (iy-1)+4.*psival (iy) +psival (iyt1); 


fo) 


end; % alternate points in the y direction 
yintgl (ix) =sum*hy/3.; 
end; % each x position in turn 


% 


% NOW INTEGRATE IN X DIRECTION. 


sum=0.; 
for ix=2:2:ixmax-1; % alternate points in the x direction 


sum=sumt+yintgl (ix-1)+4.*yintgl (ix) +yintgl (ix+1); 


end; % alternate points in the x direction 
psiintg=sum*hx/3.; 
area=(xright-xleft) * (ytop-ybot) ; 
apsiintg=psiintg/area; 


% OUTPUT RESULT. 


CI 


GRAL OF POTENTIAL OVER SOLUTION DOMAIN =', 


fprintf (fid6é, ['\n', 'INT 


'S15.6e','\n', 'AREA AVERAGE OVER SOLUTION DOMAIN =','%15.6e', 


'\n', 'NUMBERS OF INTERNAL POINTS IN X AND Y DIRECTIONS =', 


"53% ', "AND', 'S5i', '\n'],psiintg,apsiintg,nx,ny); 
return; 


end %$function internal 
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Solutions to Problems — Part 1 


Numerical answers are given, followed where appropriate by detailed notes on the solution procedure 


and comments on the results obtained. 


Chapter 1 


1.1 


1.2 


1.3 


1.4 


1.5 


Considering O<x<W/2:w=0 on x=0 and y=0,w=¥J, on y=H. Symmetry 
condition dw/dx = 0 onx =W/2. 


A membrane such as a rubber sheet or soap film can be stretched over a frame whose shape 
follows that of the cross section of the twisted bar. Under pressure it deflects according to the 
given equation, which is analogous to Equation 1.41. Torque can be found from the measured 


volume of membrane displacement, and shear stresses from the slopes of the membrane. 


Velocities defined by Equation 1.58 satisfy continuity Equation 1.46 to give: 


a*p d*p 


ae aye 


Porous medium flow under a dam can be analysed by choosing a region of rock extending some 
distance to either side of the dam and some distance below the dam. Boundary conditions for 
this domain are hydrostatic water pressure on the upper surface on one side of the dam, zero 
on the upper surface on the other side, and zero normal derivative of pressure (no flow into the 
boundary) on all other parts of the boundary, including the base of the dam. Some trial and 
error is required to find the extent of the domain in both the vertical and horizontal directions 


to give results which do not depend on the domain size. 


(a) Plane stress. (b) Plane strain. (c) Plane strain. (d) Plane strain. (e) Depends on thickness of 
specimen: if thin then plane stress, if thicker then plane stress near the surfaces, plane strain in 
the middle. 


(a) Simple uniform direct stress: Oyy = 2A. (b) Pure bending: o,, = 6By = yM/I, where M 


is bending moment and is second moment of area of a beam cross section. 
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1.6 Under plane strain with e,, = 0 
a [A — vey + | 
Oxx = (1+v)(1-2v) ViOxx T Vey 
= E 
Cn ae [1 — vey, + veyy | 
If Poisson's ratio is ¥2 then the material is incompressible: from Equations 1.20 to 1.22 the 
volumetric strain (€;, + ey, + ez, ) is zero, irrespective of the magnitude of the direct stresses. In 
the above expressions, the (1 — 2v) denominator factor means that stresses cannot be uniquely 
defined by specifying the strains. 
Chapter 2 
2.2 a4=k, ag=h, az =—hT,, 
23 M@)=2”1-§), ME) = 21+ 8) 
2.5 If a quadratic element is straight, x. = %2(x, + x3), which leads to 
x(§) = “20 — Fx, + 21 + §) xs 
which is the linear form (see the solution to Problem 2.3 above). Similarly for y(€). 
2.6 T(E) = Ye (x3 — x1)? + (v3 — y,)2 = constant (half the length of the element). 
2.7 (a) 0.81% (b) 0.05%. 
Ex? | Fy? |G, 9 ae atts ; ; 
2.9 Por == += +7 + y*) is one possibility. At any point on the boundary at which 


potential is prescribed, the value of this expression must be subtracted from the prescribed 
potential. At any point on the boundary at which potential gradient is prescribed, from this 


prescribed value must be subtracted the value of 


dp; = et Oe, Jt i aah ) 

dn x? oy ae ae 
where, OUT 2 Ex? | Gx Over 2 Fy? | Gy 

Ox 2 2° oy 2 2 
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Chapter 3 


aA | Answer: 17.8 m/s at the centre of the pipe. About 240 nodes/elements around the circumference 


are required to get three significant figure accuracy. The problem is Poisson type, with 


ee. 120 x 10° | ee a 
f= ra 95. > .6 1/ms 


The analytical solution (D is pipe diameter) for maximum velocity is 


2 
*:P" = 17.76 m/s. 
16u 


Using symmetry to analyse a 30° slice, the same answer is obtained, but about 120 nodes/ 
elements on each of the three boundary segments (the 30° arc and the two radii) are needed 
for three significant figure accuracy, and the maximum velocity is found not at the centre of 
the pipe, but at the nodes closest to it - fortunately the velocity profile is quite flat there so the 
error in the location is not significant. There is no benefit to be gained by using symmetry in 


this case. 


3.2 Answer: 28.4 m/s at the centre of the pipe. Rather than create the mesh data for an elliptical 
boundary, the same data file used for Problem 3.1 can be employed, but in subprogram MESHC 
the ellipse can be generated by scaling all XNODE and XEEND values by a factor of 2 immediately 
before finding and storing the components of the unit outward normals. Convergence to three 


significant figure accuracy occurs at about 240 nodes/elements around the boundary. 


3.3 Answer: 9.05 m/s at the centroid of the cross section (on the vertical centre line through the 
vertex of the triangle, and 50 mm above the base). Three significant accuracy is achieved with 


about 60 nodes/element per side, 180 in total. 
3.4 Answer: 2.95x10* Nm?/rad. The problem is Poisson type, with 
fi ==260 ==2% 79.6 x10? 1] =159.2 x 10? 


Three significant accuracy is achieved with about 60 nodes/elements per side of the domain, 
and 61 internal points in each direction for the domain integration. 
3.5 Answers: (a) 41.9°C, 10.0 kW/m (b) 35.0°C, 10.0 kW/m. The problem is Poisson type, with 


sf ae 
h=-E=—-—395 = Sere 
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3.6 


3.7 


3.8 


3.9 


In (a) the problem is one-dimensional and can be solved analytically to give: maximum 
T= ge + 25°C = Lent 0" 0.025" + 25°C = 41.95°C (at the surface opposite the cooled one, 
length of conductor side L). In (b) the maximum temperature is detected at the nodes adjacent 
to the corner between the two insulated surfaces. In both cases three significant figure accuracy 
is achieved at about 60 nodes/elements per side of the domain. The heat flows of 10.0 kW/m 
are to be expected because the uniform rate of heat generation is 16.0 MW/m’, over an area 


of 0.025 x 0.025 = 625 x 10 -°m”, and 16.0 x 103 x 625 x 10~® = 10.0 kW/m. 


Answers: 27.1°C (at the centre of the conductor), 7.85 kW/m. The analytical solution gives 
2 

T= an + 25°C = 27.12°C | (at the centre of the conductor, radius R). The uniform rate of 

heat generation multiplied by the cross sectional area of the conductor is 7.854 kW/m. Three 


significant figure accuracy is achieved at about 120 nodes/elements around the circumference. 


Answers: (a) 55.7 (at the outer surface), 159 W/m (b) 101°C (at the outer surface), 159 W/m. 


Three significant figure accuracy is achieved at about 120 nodes/elements per boundary. 


Answers: 42.8°C (at the nodes adjacent to the origin), 4.89 kW/m (hole centred at (30, 40)), 3.14 
kW/m (hole centred at (80, 20)), and 2.91 kW/m (hole centred at (70, 60)). Three significant 
figure accuracy is achieved for the heat flow rates at about 90 nodes/elements on each of the 
straight edges, and 180 around each hole. The maximum temperature may not have converged 
to the same accuracy, but at 900 nodes the maximum problem size permitted by the program 
has almost been reached. The reason for this lack of convergence is that the nodes where the 


maximum temperature is detected are not exactly at the origin. 


Answer: 50.5 mm at (0.52, 0.45) approximately. The problem is Poisson type, with 


ye ee 0.694444 1/ 
OS a ” 

Three significant figure accuracy is achieved at about 60 nodes/elements on each side of the 

domain. Trial and error is used to find the position of the internal point at which the deflection 


is a maximum (it is a relatively flat maximum). 
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3.10 ‘The only dimension which gives any length scale to the problem is the base thickness of the 
dam, 10 m. The depth of water is only relevant in defining the pressure on the rock on the wet 
side of the dam: density x g x depth = 1000 x 9.81 x 15 = 147150 N/m’. A possible, but 
somewhat arbitrary, domain to choose is a rectangular one that extends 1000 m horizontally 
on the wet side of the dam, 1000 m horizontally on the dry side, and goes to a vertical depth of 
1000 m, each of these dimensions being a hundred times the thickness of the dam. This gives 
a total of 5 boundary segments, including one for the base of the dam, and the overall domain 


size is 2010 m horizontally and 1000 m vertically. 


The boundary conditions are a pressure of 147150 on the top surface of the domain on the wet 
side of the dam, zero on the dry side, and zero normal derivative (of pressure) on all other parts 
of the boundary. The program computes the potential flow rates (integrated pressure gradients) 
into the domain (wet side) and out of the domain (dry side). Using 60 elements of uniform size 
on each of the segments, this model of the problem gives potential flows in and out of about 
260000 N/m. Multiplying by the permeability of 2 x 10~1° m‘/Ns gives the volumetric flow rate 
of water as 5.2 x 10~> m*/s per meter length of dam (normal to its cross section). To improve 
accuracy it is necessary to refine the sizes of the elements modelling the rock surface close to 
the base of the dam, where using elements of uniform size gives very large changes in sizes of 
elements. Applying an element size ratio of 1.01 to elements moving away from the dam on the 
two segments representing the rock surface gives a potential flow result of about 290000 N/m, 
and a volumetric flow rate of water of 5.8 x 107° m?/s per meter length of dam (normal to its 


cross section). 


Chapter 4 


4.1 Answer: 17.8 m/s at the centre of the pipe. Three significant figure accuracy is obtained with 


one element per quadrant (4 elements with 8 nodes in total). The problem is Poisson type, with 


_ 120 x 10° _ re 
f= ic aa .6 1/ms 


The analytical solution (D is pipe diameter) for maximum velocity is 


2 
P:P" = 17.76 m/s. 
16pu 
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4.2 


4.3 


4.4 


4.5 


Using symmetry to analyse a 30° slice, the same answer is obtained, with one element on each 
of the three edges of the slice (6 nodes in total). There is little benefit to be gained by using 
symmetry in this case. The reason that such good accuracy is obtained with only one element 
on each of the straight edges of the slice is that the velocity profile is parabolic (quadratic), 
which can be represented exactly by the element shape functions. For comparison, over 200 
nodes are required for either version of the problem when using constant boundary elements 
(see Problem 3.1). 


Answer: 28.4 m/s at the centre of the pipe. Rather than create the mesh data for an elliptical 
boundary, the same data file used for Problem 4.1 can be employed, but in subprogram MESHC 
the ellipse can be generated by scaling all XNODE values by a factor of 2 immediately before 
finding the maximum dimension of the domain. Convergence to three significant figure accuracy 
occurs at about 16 elements (32 nodes) around the boundary. This compares with 240 nodes to 


obtain similar accuracy using constant boundary elements (Problem 3.2). 


Answer: 9.05 m/s at the centroid of the cross section (on the vertical centre line through the 
vertex of the triangle, and 50 mm above the base). Three significant accuracy is achieved with 
about 4 elements per side, 24 nodes in total. This compares with 180 nodes to obtain similar 


accuracy using constant boundary elements (Problem 3.3). 
Answer: 2.95 x 104 Nm//rad. The problem is Poisson type, with 
fi = —-2G0 = -2 x 79.6 x 10? x 1 = —159.2 x 10° 


Three significant accuracy is achieved with about 4 elements (9 nodes) per side of the domain, 
and 9 internal points in each direction for the domain integration. This compares with about 
60 nodes per side, and 61 internal points in each direction using constant boundary elements 
(Problem 3.4). In section 4.3 an analogous channel flow problem was considered where 
using quadratic rather than constant boundary elements offered no significant benefits, which 
contrasts with the present problem. The reason for the difference is that here the aspect ratio 
of the domain of 2 is much less than the figure of 5 in the channel flow problem: quadratic 


elements are less good at analysing slender domains. 


Answers: (a) 41.9°C, 10.0 kW/m (b) 35.0°C, 10.0 kW/m. The problem is Poisson type, with 


hs SO cea gceie 
h=——=——g95 = oe 
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4.6 


4.7 


4.8 


4.9 


In (a) the problem is one-dimensional and can be solved analytically to give: maximum 
T= - + 25°C = see + 25°C = 41.95°C (at the surface opposite the cooled one, 
length of conductor side L). In (b) the maximum temperature occurs the corner between the 
two insulated surfaces. In both cases (a) and (b) three significant figure accuracy is achieved with 
one element per side of the domain, 8 nodes in total. This compares with 240 nodes to obtain 
similar accuracy using constant boundary elements (Problem 3.5). As in Problem 3.5 the heat 
flows of exactly 10.0 kW/m are to be expected because of the known rate of heat generation. 
In case (b) the maximum temperature occurs at a corner point where there is a quadratic 
element node, but not a constant element node. Although this means that the maximum from 
the constant element analysis is inherently less accurate, the error in this case is undetectable 


at three significant figure accuracy, and indeed was removed by refining the mesh. 


Answers: 27.1°C (at the centre of the conductor), 7.85 kW/m. The analytical solution gives 
C= on + 25°C = 27.12°C (at the centre of the conductor, radius R). The uniform rate of 
heat generation multiplied by the cross sectional area of the conductor is 7.854 kW/m. Three 
significant figure accuracy is achieved at 2 elements per quadrant, 16 nodes in total. This compares 


with 120 nodes to obtain similar accuracy using constant boundary elements (Problem 3.6). 


Answers: (a) 55.7°C (at the outer surface), 159 W/m (b) 101°C (at the outer surface), 159 W/m. 
Three significant figure accuracy is achieved at 2 elements per quadrant, 16 nodes per boundary. 
This compares with 120 nodes per boundary to obtain similar accuracy using constant boundary 


elements (Problem 3.7). 


Answers: 43.0°C (at the nodes adjacent to the origin), 4.89 kW/m (hole centred at (30, 40)), 3.14 
kW/m (hole centred at (80, 20)), and 2.91 kW/m (hole centred at (70, 60)). Three significant 
figure accuracy is achieved with 2 elements per quadrant on the holes and 4 elements on 
each of the straight domain edges, 80 nodes in total. This compares with the 900 nodes used 
in the constant boundary element analysis (Problem 3.8) where the maximum temperature 
had not converged (42.8°C compared with 43.0°C) because there was no node at the point of 


maximum temperature. 
Answer: 50.5 mm at (0.52, 0.45) approximately. The problem is Poisson type, with 


50 
=-7>=-— =—0.694444 1 
a a 7) - 
Three significant figure accuracy is achieved at 2 element on each side of the domain, 16 nodes 
in total. This compares with about 240 nodes to obtain similar accuracy using constant boundary 
elements (Problem 3.9). Trial and error is used to find the position of the internal point at which 


the deflection is a maximum (it is a relatively flat maximum). 
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4.10 


4.11 


4.12 


The only dimension which gives any length scale to the problem is the base thickness of the 
dam, 10 m. The depth of water is only relevant in defining the pressure on the rock on the wet 
side of the dam: density x g x depth = 1000 x 9.81 x 15 = 147150 N/m”. A possible, but 
somewhat arbitrary, domain to choose is a rectangular one that extends 1000 m horizontally 
on the wet side of the dam, 1000 m horizontally on the dry side, and goes to a vertical depth of 
1000 m, each of these dimensions being a hundred times the thickness of the dam. This gives 
a total of 5 boundary segments, including one for the base of the dam, and the overall domain 


size is 2010 m horizontally and 1000 m vertically. 


The boundary conditions are a pressure of 147150 on the top surface of the domain on the wet 
side of the dam, zero on the dry side, and zero normal derivative (of pressure) on all other parts 
of the boundary. The program computes the potential flow rates (integrated pressure gradients) 
into the domain (wet side) and out of the domain (dry side). Using 60 elements of uniform size 
on each of the segments, this model of the problem gives potential flows in and out of about 
305000 N/m. Multiplying by the permeability of 2 x 10~1° m*/Ns gives the volumetric flow rate 
of water as 6.1 x 107° m°/s per meter length of dam (normal to its cross section). To improve 
accuracy it is necessary to refine the sizes of the elements modelling the rock surface close to 
the base of the dam, where using elements of uniform size gives very large changes in sizes of 
elements. Applying an element size ratio of 1.1 to elements moving away from the dam on the 
two segments representing the rock surface gives a potential flow result of about 292000 N/m, 
and a volumetric flow rate of water of 5.8 x 1075 m?/s per meter length of dam (normal to its 


cross section). 


Answers: (a) 120%, 266°C (b) 218%, 209°C (c) 270%, 153°C. In the absence of a fin, the potential 
(temperature) flow rate to atmosphere is 8.152, from either the analytical solution or a boundary 
element analysis. The domain boundary can be divided into 10 segments: 7 straight, 2 quadrants 
and 1 semicircle. Using 8 elements per segment is more than sufficient to give convergence to 
three significant figures. The three fin lengths give potential flow rates to atmosphere of 17.92, 
25.90 and 30.15. 


Answers: 109 W/m, 21.4°C. With a number of identical pipes running parallel to each other, 
there will be planes of symmetry half way between successive pipes, and a domain of width 2 
m with a pipe at the middle is appropriate for analysis. Tests show that a domain depth of 10 
m with a zero temperature gradient boundary condition over the bottom edge is a reasonable 
choice (further increase in the depth has no significant effect on the answers). Using 8 elements 
per straight edge of the domain, and 16 elements around the pipe circumference gives three 


significant figure accuracy. 
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